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PROGRAMMING FOR ENERGY MONITORING/DISPLAY SYSTEM 
IN MULTICOLOR LIDAR SYSTEM RESEARCH 

By 

Ramon C. Alvarado, Jr.^, Robert J. Allen^, 
and Gary E. Copeland^ 

ABSTRACT 

This report describes the Z80 microprocessor-based coiqjuter program 
that directs and controls the operation of the six-channel energy monitor- 
ing/display system that is a part of the NASA Multipurpose Airborne Differ- 
ential Absorption Lidar (DIAL) System. The program is written in the Z80 
assembly language^ and is located on EPROM memories. All source and assem- 
bled listings of the main program, five subroutines, and two service rou- 
tines along with flow charts and memory maps are included. A combinational 
block diagram shows the interfacing (including port addresses) between the 
six power sensors, displays, front panel controls, the main general purpose 
miniconputer, and this dedicated microcon 5 )uter system. 

INTRODUCTION 

The Z80 microprocessor-based program presented here has been written to 
direct and control the operation of the six-channel energy monitoring/dis- 
play system that is a part of the NASA Multipurpose Airborne Differential 
Absorption ^idar System (or NASA DIAL System for short). This system incor- 
porates remote laser monitoring to obtain measurements of atmospheric pollu- 
tants (SO 2 , O 3 , particulates). At present, the NASA DIAL System includes 
two frequency tunable dye lasers that are pumped by doubled Nd-YAG lasers 
which radiate at 0.53 ym. The dye laser outputs are passed through optical 

^Graduate Research Assistant, Department of Physics, Old Dominion Univer- 
sity, Norfolk, VA 23508. 

^Research Professor, Department of Physics, Old Dominion University, Norfolk, 
VA 23508. 

^Associate Professor, Department of Physics, Old Dominion University, 

Norfolk, VA 23508. 

*^280 is a trademark of Zilog, Inc., with whom the publisher is not 
associated. 



crystals that double the frequency of the transmitted light to UV wave- 
lengths. A small fraction of the output from each of the pump lasers (des- 
ignated PI and P2) , dye lasers (designated D1 and D2) , and UV doublers (des- 
ignated XI and X2) is converted into electrical signals by fast photodiodes, 
integrated to convert power into energy, stored temporarily in sample-and- 
hold amplifiers, and digitized by six A-to-D converters (fig. FI). The 
digital outputs from the A-to-D converters are processed by the Z80-CPU and 
associated logic as illustrated by the combinational block diagrams included 
as Appendix F. Further information regarding the NASA DIAL system can be 
found in references 1 to 4. 

The computer program described here is written in Z80 assembly lan- 
guage* and is executed by the Z80 microprocessor while the laser transmit- 
ter/receiver system is operating. When executed, the program handles the 
energy data provided by the six A-to-D channels (fig. FI): channel 0 - pump 
laser Pi, channel 1 - dye laser Dl, channel 2 - UV doubling crystal XI, 
channel 3 - pump laser P2, channel 4 - dye laser D2, channel 5 - UV doubling 
crystal X2. 


PROGRAM DEVELOPMENT 


Objectives 

As presently configured**, this program has four main objectives: (1) 

to input the energies of the laser and doubling crystal transmissions, (2) 
to calculate the average energy for each of the six channels for a selected 
number of firings, (3) to transfer the energy averaged data to the PDP-11/34 
minicomputer, and (4) to display the average transmitted energy of any three 
selected channels on the multichannel display. In creating a program to 
meet these objectives, the constraints imposed by the firing rate of the 
laser system, along with the conversion times of the A-to-D converters, must 
be considered. The maximum firing rate of the system is 10 Hz, and the time 
required by the A-to-D converters to convert the six-channel signals into 

*A summary of the Z80-CPU instruction set is included as Appendix E. A 
thorough description of the Z80 instruction set and assembly language pro- 
gramming can be found in the literature (refs. 5-8). 

**Future configurations planned include (1) logging the PMT gain function 
generator unit "step gain switch" positions (fig. F5) and (2) diagnosing 
laser optical misalignments or failures. 
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their binary equivalents is 40 ms. There is a total of 100 ms following 
conversion in which to complete the objectives listed above. The following 
subsection briefly describes how the program presented in this report, 
accomplishes the above requirements. 

Basic Program Function 

Basically, the Z80 programming for the energy monitoring/display system 
functions as follows: On startup, the energy- averaging switches are read. 

This data is used to determine N, which is used to calculate 2^, which 
is the number of firings to be averaged. Next, for each firing of the laser 
system, the energies of the six channels are read and used to calculate the 
current or running average for each channel's energy per transmission based 
on the number of firings made so far during the current averaging run. When 
the desired number of transmissions to be averaged has been reached, the low 
byte of the average energy per transmission for channel 0 is sent to the 
PDP-11, whereupon a flag is asserted. If the PDP-11 acknowledges the recep- 
tion of this data within 12 ps* after its transmission, the remainder of the 
energy average data is transferred. If the PDP-11 does not come back within 
tne allotted time, there are no transfers of energy average data and the 
selection switches of the three-channel selectable display are read. The 
digital displays are then programmed to display the average energy per 
transmission for the selected three channels. 

At this point in the program, for a normal operating sequence, the 
energy- averaging switches would again be read and a new averaging run would 
commence. The normal mode of operation, however, can be altered at any time 
by an NMI interrupt generated by the PDP-11. The details of such a proce- 
dure and of the regular workings of the program will be described later. 

Memory Maps 

The energy monitoring/display system program uses 2K of programmable, 
read only memory (PROM) and 2K of random access memory (RAM) as indicated 
in figure F6 . The PROMs are assigned addresses 0 to 2047^g (OOH - 7FFH) , 

and the RAMs addresses 2048 iq to 4095io (800H - FFFH). How the available 
memory is utilized is shown by the memory maps (tables 1 and 2). 

*This value may be altered after further evaluation. 
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Table 1. Memory map for two 1024 x 8 EPROMS. 


ADDRESSES! 0-20A7 <00H-07FFH> 


ADDRESS 

6 BYTES 

DESCRIPTION 

DEC 

HEX 



0 

0 


JUMP INSTRUCTION TO Nfe(jINNlN« UF 

2 

2 

3 

MAIN 

3 

3 


NOT USED 

S5 

37 

53 


56 

38 


JUMP TO INT INTERRUPT SERVICE 

SB 

3A 

3 

ROUTINE DATRNSFR 

59 

3P 


NOT USED 

101 

65 

43 


102 

66 


JUMP TO NMI INYEPRUPI SERVICE 

104 

68 

3 

ROUTINE PPPSEP 

lOS 

69 


NOT USED 

255 

FF 

151 


256 

100 


SUBROUTINE DIVIDE 

290 

118 

25 


281 

119 


NOT USED 

297 

IIF 

7 


298 

120 


SUBROUTINE AMDREU 

300 

12C 

13 


301 

12D 


NOT USED 

3J9 

13F 

19 


320 

140 


SUBROUTINE RE4RR0 

352 

140 

33 


353 

141 


NOT USED 

367 

16F 

15 


368 

170 


SUBROUTINE .SWSELl 

600 

258 

233 


601 

259 


NOT USED 

639 

27F 

39 


■ 6aO 

290' 

■ 

'iUBROOTlNE SNSEL3 • • • • 

706 

2C2 

67 


707 

2C3 


NOT USED 

735 

2DF 

29 


736 

2E0 


SERVICE ROUTINE UAfPNS>R 

782 

30E 

47 


783 

30F 


NOT USED 

808 

328 

26 


809 

329 


SERVICE ROUTINE PDPSkR 

840 

348 

32 


941 

349 


THOUSN TABI.E 

842 

34A 

2 


843 

348 


HUNDRD TABLE 

844 

34C 

2 


845 

34D 


TENS TABLE 

846 

34E 

2 


847 

34F 


ONES TABLE 

848 

350 

2 


849 

351 


NOT USED 

1023 

3FF 

175 


1024 

400 


PROGRAM MAIN 

1651 

673 

629 


1652 

674 


NOT USED 

2047 

7FF 

396 









Table 2. Memory map for four 1024 x 4 RAMS 


MEMORY MAP FOR FOUR 1024 X 4 RAMS 

t4444t}tt4***4****4**t********>H$t**** 


addresses: 20AS-4095 (800H-FFFH) 


ADDRESS 

♦ BYTES 

DESCRIPTION 

DEC 

HEX 



2048 

800 


PIESUM 

2050 

802 

3 

P1ESM3 

2051 

803 


DIESUH 

2053 

805 

3 

01ESM3 

2054 

806 


XIESUN 

2056 

808 

3 

X1ESM3 

2057 

809 


P2ESUM 

2059 

SOD 

3 

P2ESM3 

2060 

80C 


D2ESUM 

2062 

80E 

3 

D2ESM3 

2063 

80F 


X2ESUM 

2065 

811 

3 

X2ESM3 

2066 

812 


NOT USED 

2068 

814 

3 


2069 

815 

1 

NADDR 

2070 

816 

1 

NOT USED 

2071 

017 


NUMFIR 

2072 

818 

2 


2073 

819 


NOT USED 

2079 

81F 

7 


2080 

820 


DECMAL 

2083 

823 

4 

DECML4 

2084 

824 


NOT USED 

2086 

826 

3 


2087 

827 


BINVAL 

2088 

828 

2 


2089 

829 


NOT USED 

2099 

833 

11 


2100 

834 


PIRAVG 

2101 

835 

2 


2102 

836 


D IRA VO 

2103 

837 

2 


2104 

838 


XIRAVO 

2105 

839 

2 


2106 

83A 


P2RAVG 

2107 

83B 

2 


2X08 

03C 


D2RAVG 

2109 

83D 

2 


2110 

83E 


X2KAVG 

2111 

83F 

2 


2112 

840 


STACK BOTTOM 

2385 

951 

274 

STACK INITIALIZATION 

2386 

952 


NOT USED 

4095 

FFF 

1710 



M«3csassassessaBssssaBBsaaBBaBasssBassaBBSBBS«asnsaaasaiaaHas3i0aaBs 
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Source Listings of Program Algorithms 


Creating Programs on the Cromemco System 
Three Microcomputer 

The main program, five subroutines (table 3), and two interrupt service 
routines (table 3) that comprise the programming for the energy monitoring/ 
display system were all developed on a Cromemco System Three microcomputer. 
The basic algorithms to accomplish the tasks given under "Program Develop- 
ment — Objectives" were worked out in the form of a main program and various 
subroutines and service routines and were entered as files on the microcom- 
puter. The subroutine ADDREG, which adds a triple precision number in memo- 
ry to a triple precision number that has its first two bytes in registers C 
and D, respectively, is used as an example here (table 4) and later on in 
the report (table 5) to show how the programming presented in this report 
was created. 

The lines shown at the top of the example are first printed after 
the computer has been "booted up," which is done by depressing the return 
key a few times. The sequence involved in creating this file entitled 
"ADDREG. Z80" is shown in table 4, where all underlined characters are those 
entered by the programmer. EDIT is called first, and the program is entered 
by the programmer. EDIT is then exited, whereupon the file ADDREG. Z80 is 
created by the computer. Finally, the "TYPE" command is used to print out 
the file to verify that it is correct, A thorough account of the operating 
system and the creation of programs on the Cromemco System Three can be 
found in references 9 and 10, respectively. 

Six-Channel Energy Monitoring/Display System 
Program Description and Usage 

Introduction . - The programming for the energy monitoring/display 
system will now be discussed in detail. The main program consists of vari- 
ous segments that perform specific tasks. Each segment is set apart from 
the rest by a comment statement that serves as a heading (refer to the main 
program source listing, table Cl), and in the following discussion each 
segment will be referenced by its heading. In addition, the flow diagram 
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Name 

REARRG 

ADDREG 

DIVIDE 

SWSELl 

SWSEL2 


DATRNSFR 

PDPSER 


Table 3. List of subroutines and service routines. 


SUBROUTINES 

Function 

Takes the two bytes from the A-to-D containing the 11 data 
bits of a given channel's energy for a firing and rearranges 
them into the correct two-byte binary number. 

Adds two triple precision numbers. 

Performs a 32-bit by 16-bit unsigned divide. 

Determines which channel is to be displayed on the display 
being considered, converts the energy average to BCD, then 
programs the thousand's and hundred's digits of the 
display. 

Programs the ten's and one's digits of the display under 
consideration with the energy data for the channel selected 
in subroutine SWSELl. 


SERVICE ROUTINES 

Handles the transfer of data from the Z80 to the PDP-11 with 
handshaking. 


Upon an NMI interrupt by the PDP-11, inputs data bits PAO- 
PA3 from the PDP-11 and checks if all of these bits are set. 
If they are, the PDP-11 has not changed the value of w but 
requires the current running average for each channel. 
Otherwise, bits PA0-PA3 represent N and bit 4 is set to 
indicate that the PDP-11, as opposed to the switches, has 
provided N. 



Table 4. Example illustrating program creation 


KDOS version 02»17 

Cromemco Disk Oeeratins System 

Copyrisht (c) 1978» 1979 Cromemco» 

A. 

A ♦ ELI I T AIiliREG»Z80 

CROhEMCO Text Editor version <)O»10 


New File 

*1 

ADDRES; LIi 
ADD 
LD 
ini: 
LD 
ADC 
LII 
INC 
L£i 
AUC 
LD 
RET 
»_E 

Goodbye 
End of Input 


A y C 
At <HL j 
<HL) >A 
HL 
Ay II 
A y ( HL .) 
( HL > y A 
HL 
AyQ 
A y < HL > 
<HL) y A 


File 


A . l YPE AHIiREU . Z80 


AHriREG 


: LD 

AyC 

ADD 

A y ( HL > 

LD 

( HL ) y A 

INC 

HL 

LD 

AyD 

ADC 

Ay (HL) 

LD 

(HL) yA 

INC 

HL 

LD 

AyO 

ADC 

A y ( HL ) 

LD 

(HL) yA 

RET 



A . 


Inc * 
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Table 5. Example illustrating program conversion from source listing 
mnemonics into machine language (assembled) . 


ADLikEG HEX=120 

CROhEMCO CDOS Z80 ASSEMBLER version 02.15 


Errors 


0 


end of assemble 
A . TYPE ABDREIj . PRN 


CROMEMCO CDOS Z80 ASSEMBLER version 02.15 


PAGE 0001 


0120 

79 

0001 ADDREO; 

LD 

A»C 

0121 

86 

0002 

ADD 

A» <HL) 

0122 

77 

0003 

LD 

( HL ) » A 

0123 

23 

0004 

INC 

HL 

0124 

7 A 

0005 

LD 

A»D 

0125 

8E 

0006 

ADC 

A» (HL) 

0126 

77 

0007 

LD 

( HL ) T A 

0127 

23 

0008 

INC 

HL 

0128 

3E00 

0009 

LD 

A>0 

012A 

8E 

0010 

ADC 

Af (HL) 

012B 

77 

0011 

LD 

(HL) rA 

012C 

C9 

0012 

RET 



Errors 0 


A. 


9 



symbols (the blocks and diamonds) of the general flow diagram (fig. Bl) 
correspond to the various segments of the main program and are labeled with 
lower case letters so that the general flow diagram can be used along with 
the source listing and flow chart of the main program in the discussion of 
each of the segments of the main program which now follows. 

Initialize stack and set interrupt mode . - After the energy- averaging 
switches and the display-selection switches have been set, and after the 
laser system has been activated by the operator, the Z80 energy monitoring/ 
display program is executed. To start, the interrupt enable flip-flop is 
set so that maskable interrupts can be handled, since there is a service 
routine for maskable (INT) as well as nonmaskable (NMI) interrupts. Mask- 
able and nonmaskable interrupts are the means by which the PDP-11 can direct 
the operation of the Z80 microprocessor. How this is accomplished will be 
discussed in more detail when each of the interrupt service routines is 
described. 

The Z80 microprocessor can handle three different types of iNT inter- 
rupt modes. Mode one is chosen since there is only one maskable interrupt- 
ing source, the PDP-11/34 minicomputer* (fig. F4) . In this mode, a maskable 
interrupt causes the contents of the program counter to be saved in the 
stack. A restart is then made beginning at address 38H, where a jump in- 
struction to the beginning of service routine DATRNSFR is located (see table 
1 ). 

Because the program utilizes stack operations, a section of memory 
(840H - 950H) is designated as a memory stack in order to facilitate the 
handling of data and information. The stack is used to hold return 
addresses for subroutines and to hold the contents of registers that need to 
be freed temporarily for use within the main program or subroutines. 

Read switches and arrange into new N . - The three data bits corre- 
sponding to the settings of the energy- averaging switches are input into the 
accumulator from port OFH (see figs. F2 and F6) . Data bits AVO, AVI, and 
AV2 correspond to the switch settings and are located in bits three (D3), 


*Tlie PDP-11 is also configured for nonmaskable interrupts (NMI) , as shown in 
figure F4 . 
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four (D4) , and five (D5) of the accumulator, respectively. After being 
input, the data from this port appears in the accumulator as shown in figure 

1 . 


D7 

D6 

D5 

D4 

D3 

D2 

D1 

DO 

X 

X 

AV2 

AVI 

AVO 

X 

X 

X 


Figure 1. Accumulator contents after input of data from port OFH. 
(The X's denote irrelevant data bits.) 

Bits two, six, and seven of the accumulator are reset, and the contents of 
the accumulator are then shifted twice to the right (fig. 2) . 


D7 

D6 

D5 

D4 

D3 

D2 

D1 

DO 

0 

0 

0 

0 

AV2 

AVI 

AVO 

0 


Figure 2. Accumulator contents after shifting twice right. 

In this form, the accumulator's contents correspond to N, with 2^ 
representing the number of transmissions to be averaged. Bit 4 (D4) is 
reset to indicate that the energy- averaging switches (rather than the PDP- 
11) have provided N. The accumulator's contents are then stored at the 
address labeled NADDR (see Appendix A). Alternatively, W can be provided in 
software by a directive from the PDP-11. In this case, data bits PAD to PA3 
(figs. F4 and F6) , after being input into the accumulator (bits DO - D3 , 
respectively), correspond to N. Bit four of the accumulator is set to indi- 
cate that, until further directed, N as provided by the PDP-11 is to be used 
and that on future runs the energy-averaging switches should not be read. 

The PDP-11 can change N by generating a nonmaskable (NMI) interrupt, which 
is actually the "NEW DATA READY" pulsed signal from the DRll-C interface 
module (figs. F4 and F6). This causes the interrupt service routine PDPSER 
to be entered. 

Within service routine PDPSER, data bits PAO to PA3 are input into the 
accumulator from the PDP-11 through port OEH, where they occupy the first 
four bit positions, DO to D3, respectively. All of the higher order bits 





are reset. IF the accumulator's contents are OFH, the PDP-11 has not 
changed the value of N but requires the current running average for each 
channel. Otherwise, bits 0 to 3 of the accumulator represent N and bit four 
is set to indicate that the PDP-11 (as opposed to the energy- averaging 
switches) has provided N. The accumulator's contents are then stored in 
memory at the address labeled "NADDR." Table 6 shows the values of N that 
correspond to the allowable arrangements of AVO to AV2 and PAD to PA3. Note 
that the switches, through AVO to AV3, can specify N = 0, 2, 4, 6, 8, 10, 

12, and 14 only, while the PDP-11 can specify N = 0 to 14 through bits PAD 
to PA3. 

N . . . 

Calculate 2 for # firings to be averaged. - The desired number of fir- 
ings to be averaged is determined from N by simply calculating 2^. To do 
this the number stored in memory at NADDR is compared to values of 0 through 
14 in turn until a true comparison is made. The value of N is then known to 
the program and 2^ is specified by setting the bit of the two-byte number 
(labeled "NUMFIR"; see Appendix A) that is the same as N. For example, if N 
is nine, then bit nine of the two-byte number at NUMFIR is set with all the 
remaining bits reset. 

Clear memories holding channel energy sums. - The 18 memory locations 
in RAM that hold the 3-byte sums of the energies for the six channels need 
to be initialized to zero before each averaging run. These running sums are 
used to calculate the running average for each channel after each firing of 
the laser system. They are initialized by loading each of the 18 memory 
locations with a zero beginning with address PlESUM and ending with address 
X2ESM3 (see table 2 and Appendix A). 

Initialize shot counter. - The shot counter (register pair BC) is 
initialized to zero before each averaging run and is incremented after each 
firing of the laser system in order to keep track of the number of firings. 

In addition to keeping track of this number, the shot counter is used in the 
calculation of the running averages after each firing. 

Check if laser system has fired . - In order to determine when the 
laser system has fired, the A-to-D converter busy signals for channels zero 
and three (BO and B3) corresponding to pump lasers PI and P2, respectively, 
are monitored. When one of the pump lasers has fired, laser Pi say, its 
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Table 6. Data bit configurations that correspond to allowed values of N 


D3 

D2 

D1 

DO 


AV2, PA3 

AVI, PA2 

A VO, PAl 

0, PAO 

N . 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

1 

0 

2 

0 

0 

1 

1 

3 

0 

1 

0 

0 

4 

0 

1 

0 

1 

5 

0 

1 

1 

0 

6 

0 

1 

1 

1 

7 

1 

0 

0 

0 

8 

1 

0 

0 

1 

9 

1 

0 

1 

0 

10 

1 

0 

1 

1 

11 

1 

1 

0 

0 

12 

1 

1 

0 

1 

13 

1 

1 

1 

0 

14 
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busy signal (BO) goes high for about 40 ms, which is the conversion time. 

At the end of this time the digitized value for the energy of the pulse just 
fired is on data lines DBO to DBll. 

To determine when a firing has occurred, the busy signal for laser PI 
is input from port 06H (see figs. FI and F6). If this signal is high, a 
firing has occurred and this signal (BO) is subsequently monitored to find 
out when it goes low again, at which point valid data for the energy of the 
transmission is on data lines DBO to DBll. If the busy signal tor laser Pi 
is not high at the time it is examined, then the busy signal for laser P2 
(B3) is examined to see if it is high. If so, the laser system has fired 
and this signal (B3) is monitored to see when it goes low, at which point 
valid data is on the data lines. If neither busy signal (BO or B3) , as 
given by the data from port 06H, is high when examined, then the program 
loops back and new busy signals (BO and B3) are input from port 06H and the 
procedure outlined above is resumed.* 

Once it has been determined that the laser system has fired, the next 
task is to input the energies of each of the six channels as provided by 
their respective A-to-D converters. 

Sum channel energies to previous totals . - The energy transmitted 
during the firing for each of the six channels is summed to the previous 
total in memory. The low byte of the energy for channel zero is retrieved 
from the channel zero A-to-D converter via port OOH, and the high byte is 
input from port 08H (fig. FI).' table '7 lists the enef^ data input ports: 


Table 7. Energy data input ports. 


CHANNEL 

LOW BYTE 

HIGH BYTE 

0 

port OOH 

port OSH 

1 

port OlH 

port 09H 

2 

port 02H 

port OAH 

3 

port 03H 

port OBH 

4 

port 04H 

port OCH 

5 

port 05H 

port ODH 


*Extra hardware could have been used together with an interrupt for this 
function. Software was chosen as a less expensive and more versatile 
method. 
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The two bytes of a given channel's energy are not in the optimum format 
after being input; they come in as shown in figure 3. 



7 

6 

5 

4 

3 

2 

1 

0 

LOW BYTE (register E) 

X 

X 

DB5 

DB4 

DB3 

DB2 

DBl 

DBO 



15 

14 

13 

12 

11 

10 

9 

8 

HIGH BYTE (register D) 

X 1 

1 ^ 

j DBll 

DBIO 

DB9 

DBS 

DB7 

DB6 


Figure 3. Format of raw energy data from A-to-D converters. (The X's 
denote irrelevant data.) 

Subroutine REARRG takes the two bytes shown in figure 3 and rearranges 
them into the correct two-byte binary number that corresponds to the energy 
of the transmission for the given channel. The resulting two-byte binary 
number appears as shown in figure 4. 



7 

6 

5 

4 

3 

2 

1 

0 

LOW BYTE 

DB7 

DB6 

DBS 

DB4 

DB3 

DB2 

DBl 

DBO 



15 

14 

13 

12 

11 

10 

9 

8 

HIGH BYTE 

0 

0 

0 

0 

DBll 

DBIO 

DB9 

DBS 


Figure 4. Format of energy data after subroutine REARRG. 

In this form, the energy can be summed to the previous total for the chan- 
nel, and this is done by subroutine ADDREG. 

Advance shot counter . - The shot counter (register pair BC) is incre- 
mented by one after each firing of the laser system to keep account of the 
number of firings during a given averaging run. As previously mentioned, 
the value of the shot counter is also used in the calculation of the running 
averages, which is the next task of the program. 







Calculate running averages for each channel . - The running or current 
average for a given channel's energy per transmission is calculated by di- 
viding the running sum for the channel by the contents of the shot counter 
(register pair BC). This is done for each of the six channels and the two- 
byte result is stored in memory. For example, the two-byte result for chan- 
nel zero (laser PI) is stored in RAM beginning at address PIRAVG (see table 
2 and Appendix A). Subroutine DIVIDE, which does the actual division of the 
two binary numbers when calculating a running average, can be found on page 
235 of The Z80 Microcomputer Handbook by William Barden, Jr. (ref. 7). This 
subroutine divides the 32-bit number found in registers H, L, D, and E by 
the 16-bit number in register pair BC. Since the running sum for any given 
channel's energy is, at most, 24 bits long, the high byte in register H is 
always made equal to zero before this subroutine is called. 

Check if N firings reached . - The value of the shot counter (register 
pair BC) is compared to the value of N stored in memory. If there is a true 
conparison, the next segment (k) of the program is begun as the desired 
number of transmissions to be averaged has been achieved. Otherwise, the 
program loops back to segment f to wait for the laser system to fire once 
more. 

Send low byte of PI energy average to PDP-11 . - The low byte of the 
energy average per transmission for channel zero (laser PI) is output to 
port OOH, which is one of the two eight-bit parallel output latches connect- 
ed to the DRll-C interface module (figs. F4 and F6). In addressing this 
latch, the "REQUEST A" line of the DRll-C interface becomes asserted. This 
signals the PDP-11 that energy average data is ready to be transferred to 
it. 

Wait 12 ps for PDP-11 response . - A 12-ps period is used to wait for 
the PDP-11 response. If the PDP-11 does not respond within this time peri- 
od, the programming of the three-channel selectable display is begun. If 
the PDP-11 does respond in time, the response is made in the form of a mask- 
able interrupt (INT) generated by a strobe from the DRll-C, then the remain- 
der of the energy average data is transferred to the PDP-11. 

Transfer of energy average data to PDP-11 . - The high byte of the 
energy average for channel zero (laser PI) is output to port OlH, which is 
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the other eight-bit parallel output latch (figs. F4 and F6) . It is impor- 
tant to note that if the PDP-11 inputs the first byte of energy average 
data, that is, if it responds within 12-ps after the low byte for channel 
zero has been transferred, it is assumed that the PDP-11 will respond to the 
rest of the 11 transfers of data bytes that correspond to the 2-byte aver- 
ages for each of the 6 channels. 

In each transfer of a single byte of energy average data, except for 
the very first, the low byte of a given channel's average is output to port 
OOH, after which the program loops indefinitely until interrupted by a mask- 
able interrupt (INT; strobe signal from DRll-C). The high byte is then 
output to port OlH, and the strobe signal that will interrupt the looping 
process is again awaited. In this way all 12 bytes of the energy averages 
are transferred to the PDP-11. It is important that after accepting the 
first data byte the PDP-11 input the remainder of the data bytes when they 
are put on the data lines. The transfer sequence of the data bytes to the 
PDP-11 is given in table 8. 

The maskable interrupts, which comprise the handshaking between the Z80 
and the PDP-11, cause the service routine DATRNSFR to be entered. The sole 
purpose of this service routine is to determine the address of the instruc- 
tion in the main program that will cause the next byte of energy average 
data to be transferred and to return to that point in the main program. 

Program three-channel selectable display . - The three-channel select- 
able display can display the energy averages of any three of the six chan- 
nels. For each of the three displays, three data bits are input for use in 
determining which channel has been selected for display (figs. F3 and F6) . 
For the left-hand display, the data bits are SO, SI, and S2 , which are input 
from port 07H. For the middle display, the data bits are S3, S4, and S5, 
which are also input from port 07H. The data bits for the right-hand dis- 
play are S6, S7, and S8, and these are input from port OFH. How a channel 
to be displayed is determined from the set of three data bits is shown by 
table 9. 
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Table 8. Sequence of data transfer from Z80 to PDP-11. 


DATA BYTE 

PORT OUTPUT TO 

CONDITION FOR 
NEXT TRANSFER 

Low Byte of PI Avg. 

OOH 

PDP-11 inputs 
within 12 ps 

High Byte of PI Avg. 

OlH 

(TNT) via 
s trobe 

Low Byte of D1 Avg. 

OOH 

(INT) via 
strobe 

High Byte of D1 Avg. 

OlH 

(INT) via 
s trobe 

Low Byte of XI Avg. 

OOH 

(INT) via 
strobe 

High Byte of XI Avg. 

OlH 

(T^ via 
strobe 

Low Byte of P2 Avg. 

OOH 

(INT) via 
strobe 

High Byte of P2 Avg. 

OlH 

(Tnt) via 
strobe 

Low Byte of D2 Avg. 

OOH 

(INT) via 
s trobe 

High Byte of D2 Avg. 

OlH 

(INT) via 
s trobe 

Lowe Byte of X2 Avg. 

OOH 

(INT) via 
strobe 

High Byte of X2 Avg. 

OlH 

(INT) via 
s trobe 



Table 9. Switch selections for three- channel display. 


SO, 

SI, 

S2 


CHANNEL 

or S3 , 

S4, 

S5 , 

DATA BYTE 

SELECTED 

or S6 , 

S7, 

S8 

VALUE 

FOR DISPLAY 

0 

0 

0 

OOH 

PI 

0 

0 

1 

OlH 

D1 

0 

1 

0 

02H 

XI 

0 

1 

1 

03H 

P2 

1 

0 

0 

04H 

D2 

1 

0 

1 

05H 

X2 


After the data bits for a given display have been input, they are 
arranged into a data byte in which the three data bits comprise bits 0 to 2 
with the remainder of the bits of the data byte all reset. Subroutine 
SWSELl is then called. The first part of this subroutine compares the cata 
byte, in turn, to the six data byte values (table 9). In this way, the 
channel that has been selected for display is determined. 

Subroutine SWSELl next converts the energy average for the channel 
selected into four binary-coded decimal (BCU) numbers corresponding to a 
one's, a ten's, a hundred's, and a thousand's digit. These BCD numbers are 
used to program the seven segment displays. This is done by arranging the 
highest four bits of register D so that they matcn the BCD number corre- 
sponding to the thousand's digit. The lower four bits are made to match the 
BCD number corresponding to the hundred's digit. When SWSELl is exited, the 
seven segment displays corresponding to these digits are programmed by put- 
ting the contents of register D on the data lines and outputting them to the 
appropriate port (2, 3, 4, 5, 6, or 7). A similar operation is done by sub- 
routine SWSEL2, which programs the seven segment displays corresponding to 
the ten's and one's digits. In this way the three-channel selectable dis- 
play is programmed to display any three of the six energy averages. 

Determine where to resume main program . - Bit four of the byte for N at 
address NADDR is tested. If it is reset, then the energy- averaging switches 
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are to be read for N and the program resumes at that point (segment b) . If 
bit four is set, the energy-averaging switches are not read, since N has 
been provided earlier by the PDP-11 through an NMI interrupt, and the pro- 
gram resumes at the point where 2 , the number of firings for the next 
averaging run, is calculated (segment c). 

Conversion of Assembly Language Program into 
Machine Language 

Once a file has been created for a program, it needs to be converted 
into machine code. This is done on the Cromemco microcon^uter by its macro- 
assembler. The listing in table 5 demonstrates the sequence a programmer 
would use to assemble the source program ADDREG.Z80. The HEX = 120 option 
specifies the run address for ADDREG.Z80 as it is to run out of ROM. In 
using this option, the address of the first byte of instruction will be 
120H, as is shown on the assembled listing (table 5). The instruction "TYPE 
ADDREG.PRN" causes the whole assembled listing to be printed out. Further 
information regarding the assembly of programs on the Cromemco System Three 
Microcomputer can be found in the Cromemco macroassembler manual (ref. 11). 

Program Verification 

An assembled HEX file can be tested on the Cromemco System Three micro- 
computer by using DEBUG. When DEBUG is called, files can be read into 
memory at the addresses shown in their assembled listings. In the example 
following (table 10), both MAIN.Z80 and ADDREG.Z80 have been assembled as 
HEX files and can be read into memory using DEBUG, To set up the portions 
of the programs being tested here, addresses 800H to 802H are loaded with 
the values IIH, llH, and OlH, respectively. Register pair DE is loaded with 
the value OFFFH. The program counter is set to the point in the main pro- 
gram where the number in registers B and C is added to the energy sum for 
laser PI (address 4F4H). The addition is performed by subroutine ADDREG. 

The printout of table 10 shows how each instruction can be stepped 
through. After the return from ADDREG, which is called by the main program 
in the sequence being tested here, the result of the addition can be found 
at the addresses for the energy sum for laser PI (addresses 800H - 802H) and 
is what is printed out on the last line of the example, that is, lllllH plus 
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Table 10. Example illustrating assembled hexadecimal file testing using 
DEBUG. 


ft. LlbSUG 

£iEBU(3 version 00 >08 
- FMflIN.HEX 

“li 

NEXT = 0674 

- FrtDtiKEG>HEX 

-Ji 

NEXT » 0674 
-SM800 

0800 0800' BB U. 

0801 0801' CD 11. 

0802 0802' 01 . 

-SD “ 

DE=0000 OFFF 
- SP 

P=0100 0100' 4F4 

-M 




fl=00 

BC=0000 

DE=OFFF 

HL=0000 

S=0100 

P=04F4 

04F4' LD 

HLrOdOO 

-T 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 

<0800' ) 


A=00 

BC=0000 

DE=OFFF 

HL=0800 

S=0100 

P=04F7 

04F7' LO 

C>E 



A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

r=oooo 

1=00 


"X 


A=00 

BC=OOFF 

DE=OFFF 

HL=oaoo 

3=0100 

P=04F8 

04F8' CALL 

0120 

-T 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 

<0120' ) 


A=00 

BC=OOFF 

DE=OFFF 

HL=0800 

S=OOFE 

P=0120 

0120' LD 

Af C 

-_r 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



A=FF 

BC=00FF 

DE=OFFF 

HL=0800 

S=OOFI£ 

P=0121 

0121' ADD 

A» <HL> 



A '=00 

B'=0000 

D ' =0000 

H'=0000 

X=0000 

Y=0000 

1=00 


— 1 

H 

C 

A=10 

BC=00FF 

DE=0FFK 

HL=0800 

S=OOFE 

P=0122 

0122' LD 

<HL) lA 



A '=00 

B'=0000 

D'=0000 

H'=0000 

x=oooo 

Y=0000 

1=00 


— r 

H 

C 

, A=10 

BC=OOFF 

DE=OFFF 

HL=0800 

S=00FE 

P=0123 

0123' INC 

HL 



A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 


- f 

H 

C 

A=10 

BC=OOFF 

DE=OFFF 

HL=0801 

3=00 FE 

P=0124 

0124' LD 

ArD 



A '=00 

B'=0000 

B'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 


- 1 

H 

c 

A=OF 

BC=OOFF 

DE=OFFF 

HL=0801 

3=00FE 

P=0123 

0125' ADC 

Ar <HL) 

-r 

H 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



A=21 

BC=OOFF 

DE=0FFF 

HL=080l 

3»00FE 

P=0126 

0126' LD 

<HL) rA 



A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 


■* 1 

H 


A=21 

BC=00FF 

DE=0FFF 

HL=0801 

S=00F£ 

P=0127 

0127' INC 

HL 



A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 


— r 


A=21 

BC=OOFF 

DE=OFFF 

HL=0802 

S»00FE 

P=0128 

0128' LD 

A>00 

-T 

H 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



A=00 

BC=OOFF 

DE»OFFF 

HL=0802 

S=00l-E 

P=012A 

012A' ADC 

Af <HL> 

-T. 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



A=01 

BC=OOFF 

DE=OFFF 

HL=0802 

S=00FE 

P=012B 

012B' LD 

<HL) lA 

-J. 


A '=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



A=01 

BC=OOFF 

DE=OFFF 

HL=0802 

S=OOFE 

P=012C 

012C- PET 




A'=00 

B'=0000 

D'=0000 

H'=0000 

X=0000 

Y=0000 

1=00 



- DN80Q.S3 

0800 10 21 01 - . ! . 
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OFFFH equals 121 lOH. A more thorough explanation of DEBUG can be found in 
reference 11. 
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APPENDIX A 


BINVAL 

DECMAL 

DECML4 

D1ESM3 

DIESUM 

DIRAVG 

D2ESM3 

D2ESUM 

D2RAVG 

HUNDRD 

NADDR 

NUMFIR 

ONES 

P1ESM3 

PIESUM 

P IRAVG 

P2ESM3 


SYMBOLIC ADDRESSES 


RAM address of two-byte binary number that is converted into its 
binary-coded decimal equivalent in subroutine SWSELl 

RAM address of binary-coded decimal number that corresponds to the 
one's digit; used in subroutine SWSELl 

RAM address of binary-coded decimal number that corresponds to thou- 
sand's digit; used in subroutine SWSEL2 

RAM address of high byte of Dl energy sum; used in main program 

RAM address of low byte of channel Dl energy sum; used in main pro- 
gram 

RAM address of low byte of channel Dl running average; used in main 
program 

RAM address of high byte of channel D2 energy sum; used in main 
program 

RAM address of low byte of D2 energy sum; used in main program 

RAM address of low byte of channel D2 running average; used in main 
program and subroutine SWSELl 

ROM address of low byte of binary equivalent of one hundred; used in 
subroutine SWSELl 

RAM address of N; 2^ = the number of transmissions to be averaged; 
used in main program 

RAM address of low byte of number of transmissions to be averaged; 
used in main program 

ROM address of low byte of binary equivalent of one; used in 
subroutine SWSELl 

RAM address of high byte of channel PI energy sum; used in main 
program 

RAM address of low byte of channel Pi energy sum; used in main pro- 
gram 

RAM address of low byte of channel PI running average; used in main 
program and subroutine SWSELl 

RAM address of high byte of channel P2 energy sum; used in main 
program 
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P2ESUM RAM address of low byte of channel P2 energy sum; used in main pro- 
gram 

P2RAVG RAM address of low byte of channel P2 running average; used in main 
program and subroutine SWSELl 

TENS ROM address of low byte of binary equivalent of ten; used in subrou- 
tine SWSELl 

THOUSN ROM address of low byte of binary equivalent of one thousand; used 
in subroutine SWSELl 

X1ESM3 RAM address of high byte of channel XI energy sum; used in main 
program 

XIESUM RAM address of low byte of channel Xl energy sum; used in main pro- 
gram 

XIRAVG RAM address of low byte of channel Xl running average; used in main 
program and subroutine SWSELl 

X2ESM3 RAM address of high byte of channel X2 energy sum; used in main 
program 

X2ESUM RAM address of low byte of channel X2 energy sum; used in main pro- 
gram 

X2RAVG RAM address of low byte of channel X2 running average; used in main 
program and subroutine SWSELl 
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APPENDIX B 


GENERAL FLOW DIAGRAM 
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Figure B1 


General flow diagram 
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APPENDIX C 


PROGRAM FLOW CHARTS AND SOURCE LISTINGS 
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FIRINGS TO BE 
AVERAGED 



Figure Cl. Flow chart for main program. 
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(c) CONTINUED 
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Figure Cl. (continued) 























fc) CONTINUED 
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Cg) CONTINUED 



Figure Cl. (continued). 
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Figure Cl. (continued) . 
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Figure Cl. (continued) 







(m) CONTINUED 


Figure Cl. (continued) 
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Figure Cl. (continued) 
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Figure Cl. (c 


(m) CONTINUED 



(n) PROGRAM 3-CHANNEL 
SELECTABLE DISPLAY 
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(n) CONTINUED 



Figure Cl. (concluded) 








Table Cl. Main program source listing. 


MAIN PKOGRAM LISTING FOR LIDAR ENERGY MONITOR PROGRAM 

^p 


A 

r 

PIESUM 

EQU 

0800H 

DIESUM 

EOU 

0803H 

XIESUM 

EQU 

0806H 

P2ESUM 

EOU 

0S09H 

D2ESUM 

EOU 

080CH 

X2ESUM 

EOU 

080FH 

P1ESM3 

EOU 

0802H 

D1ESM3 

EOU 

0805H 

X1ESM3 

EOU 

0808H 

P2ESM3 

EQU 

080BH 

D2ESM3 

EQU 

080EH 

X2ESM3 

EOU 

081 IH 

NADDR 

EQU 

081 5H 

NUMFIR 

EOU 

081 7H 

PIRAOG 

EQU 

834H 

DIRAOG 

EQU 

836H 

XIRAOG 

EQU 

838H 

P2RA0G 

EQU 

83AH 

D2RA0G 

EQU 

83CH 

X2RA0G 

EQU 

83 EH 

DIVIDE 

EQU 

OlOOH 

REARRG 

EQU 

0140H 

ADDREG 

EQU 

0120H 

SWSELl 

EQU 

0170H 

SWSEL2 

EQU 

0280H 

f 

f INITIAI. 

.I2E STACK AND SET INTERRUPT MODE < 3 ) 

f 

start: 

El 

fENABLE INTERRUPTS 


IM 

1 f INTERRUPT MODE 1 


LD 

SP»951H » INITIALIZE STACK 

f 

»READ SWITCHES 

AND ARRANGE INTO NEW N (b) 

r 

avgrun: 

IN 

Ar(OFH) fREAD SWITCH SETTINGS 


RES 

2fA » ARRANGE READINGS INTO 


RES 

6rA fNEW N 


RES 

7)- A 


SRL 

A 


SRL 

A 


LD 

( NADDR)? A fLOAD ADDRESS HOLDING 


rN WITH NEW N 


(continued) 



Table Cl. (continued.) 


f N 

r CALCULATE 2 FOR # FIRINGS TO BE AVERAGED (c) 


cal: res 

A 

f RESET IN CASE SET 



fBY PDPSER 

LD 

HLfOOH 

fCLEAR HL 

LD 

D»0 

f N=0? 

CP 

D 


v/P 

Z»NO 


LD 

Of 1 

fN»l? 

CP 

D 


JP 

Zf Nl 


LD 

D»2 

f N=2? 

CP 

D 


JP 

ZfN2 


LD 

Df 3 

fN=3? 

CP 

D 


JP 

ZrN3 


LD 

Dr4 

f N=4? 

CP 

D 


JP 

ZfN4 


LD 

Df 5 

?N=5? 

CP 

D 


JP 

ZfN5 


LD 

Of 6 

f N=6? 

CP 

D 


JP 

Zf N6 


LD 

Dr7 

fN=7? 

CP 

D 


JP 

ZfN7 


LD 

DfS 

f N=8? 

CP 

D 


JP 

ZfN8 


LD 

D»9 

f N=9? 

CP 

D 


JP 

ZfN9 


LD 

DfOAH 

f N=10? 

CP 

D 


JP 

ZfNIO 


LD 

DfOBH 

f N=ll? 

CP 

D 


JP 

Zf Nil 


LD 

Df OCH 

: N=12Y 

CP 

D 


JP 

Zf N12 


LD 

DfODH 

?N=13? 

CP 

D 


JP 

ZfN13 


SET ■ 

6 f H 

fN=14f 2 TO N^=16384 

JP 

STORE 


no: set 

OfL 

fN=Of 2 TO N=1 

JP 

ST ORE 


Ni: SET 

1 fL 

fN= If 2 TO N"2 

JP 

STORE 
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Table Cl. (continued.) 


N2: 

SET 

2rL 

rN=2r2 TO N=4 


jp 

STORE 


N3J 

SET 

3>L 

rN=3r2 TO N=8 


Jp 

STORE 


N4: 

SET 

4rL 

rN«4r2 TO N=16 


JP 

STORE 


N5J 

SET 

5fL 

rN=5r2 TO N=32 


JP 

STORE 


N6: 

SET 

6rL 

rN=6r2 TO N-64 


JP 

STORE 


N7t 

SET 

7»L 

rN=7r2 TO N=12S 


JP 

STORE 


N8: 

SET 

0»H 

rN=8r2 TO N--=2>56 


JP 

STORE 


N9J 

SET 

1 fH 

rN=9r2 TO N=512 


JP 

STORE 


NIOJ 

SET 

2rH 

rN=10r2 TO N=1024 


JP 

STORE 


Nil : 

SET 

3»H 

rN=llr2 TO N=2048 


JP 

STORE 


NI 2 : 

SET 

4rH 

rN=12r2 TO N=4096 


JP 

STORE 


NI 3 : 

SET 

5fH 

rN=13r2 TO N=8192 

store: 

* 

LD 

(NUMFIR) 

rHL 

? CLEAR 

MEMORIES 

HOLDING 

CHANNEL ENERGY SUMS <d) 

f 

INTRTl : 

LD 

Cf IIH 

r INITIALIZE COUNTER 


XOR 

A 

r CLEAR ACCUMULATOR 


LEI 

DEfPlESUM 

clrmem: 

LD 

<DE)yA 



CP 

C 



JP 

ZrJl 



DEC 

C 



INC 

DE 


A 

JP 

CLRMEM 


7 

; INITIALIZE SHOT COUNTER 

A 

(e) 

f 

Ji: 

* 

LD 

B»0 


f 

f CHECK 

IF LASER 

SYSTEM Has FIRED <f) 

r 

bsywt: 

IN 

Af (06H) 

rREAD A/D BUSY SIGNALS 


BIT 

Or A 



JP 

Zr J2 

rTEST P2 BUSY IF PI BUS 




rIS NOT HIGH 

Loopi: 

IN 

Ar <06H) 

rLOOP TILL PI BUSY GOES 


BIT 

Or A 



JP 

NZr LOOPI 



JP 

J3 
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Table Cl. (continued.) 


J2i BIT 

3fA 




JP 

Z»BSrUT 

f INPUT NEW 

BUSY SIGNALS IF 



fP2 HAS NOT FIRED 


L00P2J IN 

Af (06H) 

fLOOP TILL 

P2 BUSY 

GOES LOW 

BIT 

A 




JP 

N2»L00P2 




f 

rSUM CHANNEL 
* 

ENERGIES TO 

PREVIOUS TOTALS <S) 


f 

J3: PUSH 

BC 




LD 

C»0 

fPl ENERGY 

SUMMING 

SEQUENCE 

IN 

Er <C) 




LD 

C»08H 




IN 

D»(C) 




CALL 

REARRG 




LD 

HLf PIESUM 




LD 

CfE 




CALL 

ADDREG 




LD 

Cfl 

fBl ENERGY 

SUMMING 

SEQUENCE 

IN 

E»(C) 




LD 

Cf09H 




IN 

D » < C ) 




CALL 

REARRG 




LD 

HLf DIESUM 




LD 

CfE 




CALL 

ADDREG 




LD 

Cf2 

fXJ. ENERGY 

SUMMING 

SEQUENCE 

IN 

Ef (C) 




LD 

CfOAH 




IN 

Df <C) 




CALL 

REARRG 




LD 

HLrXlESUH 




LD 

CfE 




CALL 

ADDREG 




LD 

Cf3 

fP2 ENERGY 

SUMMING 

SEQUENCE 

IN 

Ef (C> 




LD 

CfOBH 




IN 

D f < C ) 




CALL 

REARRG 




LD 

HLf P2ESUM 




LD 

CfE 




CALL 

ADDREG 




LD 

CtA 

fD2 ENERGY 

SUMMING 

SEQUENCE 

IN 

Ef (C) 




LD 

CfOCH 




IN 

Df <C) 




CALL 

REARRG 




LD 

HLfD2£SUN 




LD 

CfE 




CALL 

ADDREG 




LD 

Cf 5 

fX2 ENERGY 

SUMMING 

SEQUENCE 

IN 

Ef <C) 




LD 

CfODH 




IN 

Df <C> 
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Table Cl. (continued.) 


CALL 

REARRG 

LD 

HLrX2ESUM 

LD 

CrE 

CALL 

ADDREG 

POP 

BC 


ADVANCE SHOT COUNTER <h) 

INC BC 

CALCULATE RUNNING AVEf^AGES FOR EACH CHANNEL (i) 

DEf(FlESUM) rGET PIESUM 
HLr(PlESM3) 

HfO 

DIVIDE r CALCULATE PI RUNNING AVG, 

<PlRAVG)fDE fSTORE AT PIRAVG 
DE»<D1ESUM) rGET PIESUM 
HLf <D1ESM3) 

HrO 

DIVIDE f CALCULATE D1 RUNNING AVG, 

<DlKAVG)rDE rSTORE AT DIRAVG 

DEr<XlESUM) rGET XIESUM 

HLr(XlESM3) 

HrO 

DIVIDE r CALCULATE XI RUNNING AVG. 

(XlRAVG)rDE r STORE AT XIRAVG 

DEr(P2>ESUM) rGET P2ESUM 
HLr<P2ESM3) 

HrO 

DIVIDE r CALCULATE P2 RUNNING AVG, 

<P2RAVG)rDE ? STORE AT P2RAVG 
DEr<D2ESUM> rGET D2ESUM 
HL r ( D2ESM3 ) 

HrO 

DIVIDE rCALCULATE D2 RUNNING AVG, 

<D2RAVG)rDE r STORE AT D2RAVG 
DEr<X2ESUM) rGET X2ESUM 
HLr(X2ESM3) 

HrO 

DIVIDE rCALCULATE X2 RUNNING AVG, 

<X2RAVG)rDE rSTORE AT X2RAVG 

CHECK IF N FIRINGS REACHED (J> 

XOR A r RESET CARRY FLAG 

LD HL.r<NUMFIR) 

SBC HLrBC 

JP NZrDSYWT rWAIT FOR NEXT FIRING UNLESS BC=N 

SEND LOW BYTE OF PI ENERGY AVG. TO PDP-11 (k) 


LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 
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Table Cl. (continued.) 


PDPRTN 

; LD 

DErPlRAMG 


LD 

A r < DE ) 


OUT 

<OOH) fA 

f 

rWAIT 

A 

12 U-SEC 

FOR PDP-11 RESPONSE <1) 

f 

LD 

C»2 

LPi : 

DEC 

C 

LPIAJ 

JP 

Zf DISPLAY 

lpib: 

A 

■ 

JP 

LPI 


TRANSFER ENERGY AV/G. DATA TO PDP-H (m) 


f 

retrn: 

INC 

DE 

fHIGH 

BYTE 

OF PI ENERGY 


LD 

Af (DE) 

fAVG. 

TO PDP-11 


OUT 

(OlH)r A 




hi: 

JR 

HI 





LD 

DEs-DlRAVG 

f LOW 

BYTE ( 

DF D1 ENERGY 


LD 

Af (DE) 

fAUG, 

SENT 

TO PDP-11 


OUT 

(OOH)»A 




H2t 

JR 

H2 





INC 

DE 

fHIGH 

BYTE 

OF D1 ENERGY 


LD 

A r ( DE ) 

f AUGf 

SENT 

TO PDP-11 


OUT 

(OlH)f A 




H3: 

JR 

H3 





LD 

DErXlRAVG 

f LOW 

BY7E 1 

OF XI ENERGY 


LD 

Ar(DE) 

fAVG, 

SENT 

TO PDP--11 


OUT 

(OOH)^ A 




ha: 

JR 

HA 





INC 

DE 

fHIGH 

BYTE 

OF XI ENERGY 


LD 

A T < DE ) 

fAVG, 

SENT 

TO PDP-11 


OUT 

(OlH)f A 




in 

X 

JR 

H5 





LD 

DErP2RAUG 

f LOW 

BYTE 1 

OF P2 ENERGY 


LD 

Af (DE) 

fAVG, 

SENT 

TO PDP--11 


OUT 

(OOH)r A 




H6: 

JR 

H6 





INC 

DE 

fHIGH 

BYTE 

OF P2 ENERGY 


LD 

A f ( DE ) 

fAVG, 

SENT 

TO PDP-11 


OUT 

(OlH)f A 




H7: 

JR 

H7 





LD 

DEf D2RAMG 

f LOW 

BYTE 1 

OF D2 ENERGY 


LD 

Af (DE) 

fAVG, 

SENT 

TO PDP-11 


OUT 

(OOH)f A 




Hs: 

JR 

H8 





INC 

DE 

fHIGH 

BYTE 

OF D2 ENERGY 


LD 

Af (DE) 

?AVG, 

SENT 

TO PDP-11 


OUT 

(OlH)f A 




H9: 

JR 

H9 





LD 

DEf X2RAUG 

f LOW 

BYTE 1 

OF X2 ENERGY 


LD 

Af (DE) 

fAVG, 

SENT 

10 PDP-11 


OUT 

(OOH)f A 






HIO 


Table Cl. (continued.) 

JK HIO 

INC DE fHIGH BYTE OF X2 ENERGY 

LD A»(DE) fAOG* SENT TO PDP-11 

OUT <01H)»A 

Hli: JFi: Hll 


PROGRAM 3-CHANNEL SELECTABLE DISPLAY 


display: IN 

RES 

RES 

RES 

RES 

RES 

CALL 

LD 

OUT 

CALL 

LD 

OUT 


RES 

RES 

SRL 

SRL 

SRL 

CALL 

LD 

OUT 

CALL 

LD 

OUT 

IN 

RES 

RES 

RES 

RES 

RES 

CALL 

LD 

OUT 

CALL 

LD 

OUT 


Af<07H) ?READ LEFT DISPLAY'S 
f SELECTION SWITCHES 

3»A 
4 » A 
5»A 

6fA 

7»A 

SWSELl 

Cr02H 

<C)fD f PROGRAM THOUSANDS AND 

f HUNDREDS OF LEFT DISPLAY 

SWSEL2 

C»03H 

<C)fD fPROGRAM TENS AND ONES 

fOF LEFT DISPLAY 

Af<07H) fREAD MIDDLE DISPLAY'S 

f SELECT! ON SWITCHES 

6f A 

7fA 

A 

A 

A 

SWSELl 

Cr()4H 

<C)fD fPROGRAM THOUSANDS AND 

fHUNDREDS OF MIDDLE DISPLAY 

SWSEL2 

CfOSH 

<C)fD fPROGRAM TENS AND ONES 

fOF MIDDLE DISPLAY 
Af(OFH) fREAD RIGHT DISPLAY'S 
fSELECTION SWITCHES 

3 f A 

4 f A 
5f A 
6 f A 
7f A 

SWSELl 

Cf06H 

(C)fD fPROGRAM THOUSANDS AND 

fHUNDREDS OF RIGHT DISPLAY 

SWSEL2 

Cf07H 

<C)fD JPROGRAM TENS AND ONES 

fOF RIGHT DISPLAY 


DETERMINE WHERE TO RESUME MAIN PROGRAM <o) 
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Table Cl. (concluded.) 


LIi 

Ay (NADDR) 


BIT 

4 yA 

r CHECK IF SWITCHES HAVE BEEN 
yCHANGEB BY PDP--11 

JP 

ZfAUGRUN 

y‘GO TO AVGRUN TO KEAB SWITCHES 
fIF SWITCHES UNCHANGED 

JP 

CAL 

rOTHERWISEf GO TO SEOUENCE 
? FHAT DETERMINES NEW VALUE OF 
f2 RAISED TO N POWER 
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Table C2a. Subroutine source listing for REARRG. 


f SUBROUTINE REARRG 


J SUBROUTINE REARRG TAKES THE TWO BYTES 
» CONTAINING THE ELEVEN BITS OF A GIVEN 
; CHANNEL'S ENERGY FOR A FIRING » FROM THE 
fA/Hf AND REARRANGES THEM INTO I HE 
» CORRECT TWO BYTE BINARY NUMBER. 


REARRG: 

BIT 

0»D 


JP 

ZfLl 


SET 

&,e 


JP 

L2 

LI : 

RES 

6»E 

L2: 

BIT 

1»D 


JP 

Z»L3 


SET 

7fE 


JP 

L4 

L3: 

RES 

7fE 

L4 J 

RES 

6fD 


RES 

7»D 


SRL 

D 


S R L 
RET 

D 


A . 
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START 



RETURN 


Figure C3. Flow chart for subroutine ADDREG. 
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Table C2b. Subroutine source listing for ADDREG. 


» 

r SUBROUTINE ADDREG 


?THIS SUBROUTINE ADDS TWO TRIPLE PRECISION NUMBfc.RS, 
rBEFORE THIS ROUTINE IS CALLED^ THE HL REGISTER 
JPAIR MUST POINT TO THE LS-BYTE OF THE TRIPLE 
» PRECISION UALUE STORED IN MEMURY.THE Lb-BYTE 
fOF THE OTHER TRIPLE PRECISION NUMBER MUST BE 
; STORED IN REGISTER C AND THE NEXT SIGNIFICANT 
rBYTE IN REGISTER D, THE MS-BYTE WILL ALWAYS BE 
fOOH AND IS TAKEN CARE UE WITHIN THE SUBROUTINE » 

f 

ADDREG: LD A,C 

ADD Af(HL) 

LD (HL)rA 

INC HL 

LD A.D 

ADC Ay(HL> 

LD <HL>»A 

INC HL 

LD A»OOH 

ADC At<HL.) 

LD (HL)»A 

RET 


A . 
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START 



Figure C4. Flow chart for subroutine DIVIDE. 




















Table C2c. Subroutine source listing for DIVIDE 


f 

* 

f 

? SUBROUTINE DIUIDE 


V 

JTHIS SUBROUTINE PERFORMS A 32-BIT BY 
; 16-BIT UNSIGNED DIUIBE. THE 32-BIT 
fDIUIDEND IS INPUT IN HrL»DfAND E 
r (H=MSBrE=LSB) r WHILE THE 16-BIT DIVISOR 
rlS IN REG. PAIR BU. WHEN FINISHED THE 
» 16-BIT QUOTIENT IS HELD IN DE AND ANY 
.-REMAINDER IS IN HL . 


divide: 

LD 

A » 1 6 

; ITERATION COUNTER 

loop; 

ADD 

HLrHL 

fSHIFT HL LEFT 


EX 

DErHL 

;DE to HL EOR SHIFT 


ADD 

HL.HL 

;SH1EI aiE) 


EX 

DE.HL 



JP 

NC. JUMPl 

JGO IF NO CARRY 


INC 

HL 

.CARRY TO MS 2 BYTES 

JUhPl ; 

OR 

A 

.-RESET CARRY 


SBC 

HL.BC 

f SUBTRACT divisor 


INC 

DE 

;SET Q=1 


JP 

P . JUMP2 

.GO IF U=1 


ADD 

HL . BC 

» R L STORE 


RES 

O.E 

?SET 0=0 

JUMP2 : 

DEC 

A 

f decrement count 


JP 

NZ.LOOP 

;go if not done 


RET 


; RETURN 


A. 


56 



START 


DOES 

ACCUMULATOR 
= 0 ? ^ 


DOES ^ 
ACCUMULATOR 


DOES ^ 
ACCUMULATOR 


^ DOES , 
ACCUMULATOR 


DOES ^ 
ACCUMULATOR 



LOAD ADDRESS BINVAL 
WITH X2 RUNNING 
AVERAGE 


Figure C5. Flow chart for subroutine SWSELl. 
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Figure C5 
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Figure C5. (concluded). 






Table C2d. Subroutine source listing for SWSELl 


f 

f 

r SUBROUTINE SWSELl 

* .... 

J ss s= s: s= = a ss S3 ss ss = ss ss ss := = = 

f 

? SUBROUTINE SWSELl DETERMINES WHICH CHANNEL 
»TO DISPLAY ON THE DISPLAY BEINU CONS.lDERED> 
» CONVERTS THE ENERGY AVERAGE TO BCD? THEN 
» PROGRAMS THE THOUSANDS AND HUNDREDS 
; DIGITS OF THE DISPLAY 


f 


THOUSN 

EQU 

0349H 

BINVAL 

EQU 

0827H 

PIRAVG 

EQU 

834H 

DIRAVG 

EQU 

336H 

XIRAVG 

EQU 

838H 

P2RAVG 

EQU 

83AH 

D2RAVG 

EQU 

83CH 

X2RAVG 

EQU 

83EH 

DECML4 

EQU 

0823H 

SWSELl : 

LD 

DfOOH » DISPLAY PI ENERGY AVG 


CP 

D 


JP 

Z»S1 


LD 

DjVIH 5DISPLAY D1 AVU . ? 


CP 

D 


JP 

Z»S2 


LD 

D*02H f DISPLAY XI AVG . ? 


CP 

D 


JP 

Z»S3 


LD 

Df03H » DISPLAY P2 AVG. ? 


CP 

D 


JP 

Zf S4 


LD 

D»04H f DISPLAY D2 AVG. ? 


CP 

D 


JP 

ZrS5 


LD 

DEf<X2RAV6) ^DISPLAY X2 AVG. 


LD 

< BINVAL ) rDE 


JP 

BNTODC 

SI J 

LD 

DE» (PIRAVG) ifDISPLAY PI AVG. 


LD 

t BINVAL ) fDE 


JP 

BNTODC 

S2: 

LD 

DE. (DIRAVG) » DISPLAY D1 AVG. 


LD 

(BINVAL) tDE 


JP 

BNTODC 

S3; 

LD 

DE. (XIRAVG) .DISPLAY XI AVG. 


LD 

( binvad.de 


JF' 

BNTODC 

S4 ; 

LD 

DE.(P2RAVG) JDISPLAY P2 AVG . 


LD 

CBINVAL) »DE 


JP 

BNTODC 



Table C2d. (continued.) 


S5: LD DtT<D2RAVG) fDISPLAY D2 Al^G. 


LD 

(BINUAL) » 

BNTODC : LD 

HL» THOUSN 


LD 

DE » DECML-^ 

BNDC : PUSH 

HL 

PUSH 

DE 

DCEQUL} LD 

DEfBINUAL 

I...D 

BC»0200H 

dcloop: and 

A 

DCLPl : LD 

A » ( DE ) 

SBC 

Af (HL) 

LD 

< DE ) j A 

DEC 

B 

JP 

Z» INCRVL 

INC 

HL 

INC 

DE 

JP 

DCLPl 

incrul; INC 

C 

DEC 

HL 

LD 

DEf BINVAL 

LD 

B»02H 

JP 

NCrDCLOUP 

DEC 

C 

EX 

DE > HL 

PUSH 

BC 

LD 

BC f0002H 

adder: and 

A 

ADDMOR: LD 

A » ( DE ) 

ADC 

A» (HL) 

LD 

(HL) » A 

CPI 


JP 

POjNEXT 

INC 

DE 

JP 

ADDMOR 

next: pop 

BC 

POP 

HL 

LD 

(HL) >C 

EX 

DEtHL 

POP 

HL 

INC 

HL 

INC 

HL 

LD 

ArE 

CP 

20H 

JP 

Z»AO 

DEC 

DE 

JP 

BNDC 

AO: LD 

D»0 

LD 

Af (DECML4 

BI r 

()» A 

JP 

Zf A1 


DE 

;the routine bntodc is 

fUESCRIBED IN THE 
yZSO COOKBOOK j RG» J 78 


ftND OK BNTODC 
; ARRANGE BITS 
)?4-7 OF REG. D 
5 TO MATCH THE 

;bcd number at 

r ADDRESS DECML^ 
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Table C2d. (concluded.) 



SET 

4»D 


Ai : 

BIT 

1 r A 



Jp 

Zf A2 



SET 

5»D 


A2; 

BIT 

2»A 



JP 

Z»A3 



SET 

6 > B 


A3: 

BIT 

3 » A 



JP 

Z»A4 



SET 

7»B 


A4; 

LB 

HL»BECML,4 

f ARRANGE BITS 


DEC 

HL 

fO-3 OF REG. B 


LD 

A» (HL) 

fTO NATCH THE 


BIT 

Of A 

fBCB NUNBER AI 


JP 

Zf AS 

fABBRESS BECNL4-1 


SET 

Of B 


as: 

BIT 

1 f A 



JF^ 

Zf A6 



SET 

1 f B 


A6: 

BIT 

2f A 



JP 

Zf A7 



SET 

2f B 


A7: 

BIT 

3f A 



JP 

Zf AB 



SET 

3f B 


ab: 

RET 




A. 
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Figure C6. Flow chart for subroutine SWSEL2 . 
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Table C2e. Subroutine source listing for SWSEL2 


i 

» SUBROUTINE SUSEL2 


f 

? SUBROUTINE SWSEL2 PROGRAMS THE TENS 
?ANB ONES DIGITS OF THE DISPLAY UNDER 
J CONSIDERATION WHEN IT IS CALLED WITH 


fTHE DATA FOR 

THE CHANNEL 

SELECTED IN 

» SUBROUTINE S 

WSELl . 


y 

DECMAL 

EGU 

820H 


y 

SUSEL2: 

LD 

DfO 

; ARRANGE BITS 


LD 

Af (DECMAL 

)rO~3 OF REG. D 




?TO MATCH THE 


BIT 

Or A 

rBCD NUMBfcR AT 


JP 

ZrBl 

r ADDRESS DECMAL 


SET 

OrD 

r WHICH HOLDS THE 

Bi: 

BIT 

1 rA 

JONES DIGIT 


JF' 

ZrB2 



SET 

IfD 


B2: 

BIT 

2r A 



..Ip 

ZrB3 



SET 

2rD 


B3: 

BIT 

3r A 



JP 

ZrB4 



SET 

3rD 


B4: 

LD 

HLr DECMAL 

; ARRANGE BITS 


INC 

HL 

54“/ OF REG. D 


LD 

A r ( HL ) 

;rO MATCH THE 


BIT 

0 f A 

JBCD NUMBER AT 


JP 

ZrB5 

J ADDRESS DECMAL+1 


SET 

4 f D 

5 WHICH HOLDS THE 

B5; 

BIT 

Ir A 

JTENS DIGIT 


JP 

Z»B6 



SET 

5rD 


B6{ 

BIT 

2»A 



JF' 

ZrB7 



BET 

6rD 


B7J 

BIT 

3 » A 



JP 

ZrB8 



SET 

7rD 


B8; 

RET 




A 




Figure C7. Flow chart for service routine PDPSER 








Table C2f. Subroutine source listing for PDPSER 


* 

f 

INTERRUPT SERVICE ROUTINE PDPSER 

A 

, — 

• 

f 

fUPON AN NMI INTERRUPT BY THE PBP-llf THE Z80 INPUTS DATA 
?BITS PA0-PA3 FROM THE PDP-11 AND ARRANGES THEM AS THE 
r LOWEST ORDER BITS OF AN 8-BIT WORD? THE HIGH ORDER BITS 
?ARE ALL RESET. IF BITS PA0-PA3 ARE ALL SET .» THEN THE 
? PDP-11 HAS NOT CHANGED THE THE VALUE OF N BUT REQUIRES 
?THE CURRENT RUNNING AVERAGE FOR EACH CHANNEL. OTHERWISE!- 
?BITS PA0-PA3 REPRESENT N AND BIT 4 IS SET TO INDICATE 
?THAT THE PDP-11 PROVIDES N AS OPPOSED TO THE SWITCHES. 


? 


NADDR 

EQU 

815H 


DISPLAY 

EQU 

61BH 


PDPRTN 

EOU 

5C0H 


9 

PDPSER: 

IN 

At <OEH) 

?GET PA0-PA3 FROM PDP-11 


RES 

4r A 

fCLEAR HIGH ORDER BITS 


RES 

5f A 



RES 

6 r A 



RES 

7fA 



CP 

OFH 



JP 

ZrNOCHNG 

? LEAVE SERVICE ROUTINE TO OUTPUT 
tRUNNING averages if N NOT 
fCHANGED BY PDP-11 


SET 

4t A 

flNDICATE N CHANGED BY PDP-11 


LD 

(NADDR) tA 

? STORE NEW N 


LD 

HLtDISPLAY 

tRETURN to ADDRESS DISPLAY 


EX 

RETN 

< SP ) r HL 

?IN MAIN PROGRAM 

nochng: 

LD 

HLt PDPRTN 

? RETURN TO ADDRESS PDPRTN 


EX 

REfN 

(SP) tHL 

?IN MAIN PROGRAM 


A. 


68 




Figure C8. Flow chart for service routine DATRNSFR. 
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Table C2g. Subroutine source listing for DATRNSFR 


INTERRUPT SERVICE ROUTINE DATRNSFR 


FTHIS INTERRUPT SERVICE ROUTINE HANDLES THE TRANSFER OF DATA 
fFRON THE Z80 TO 1 HE PDP~11 VIA HANDSHAKING, 


7 

LPl 

EQLI 

5C8H 


LPIA 

EQU 

5C9H 


LPIB 

EQU 

5CCH 


RETRN 

4 

EQU 

5CFH 


f 

trnsfr; 

POP 

BC 

fGET CURRENT RETURN ADDRESS 


XOR 

A 

f RESET CARRY FLAG 


LD 

HLfLPl 



SBC 

HL»BC 

tUSE tniRRENT RETURN ADDRESS fi 


JP 

ZfRET2 

f DETERMINE NEW RETURN ADDRESS 


XOR 

A 



LD 

HLfLPlA 



SBC 

HLf BC 



JP 

ZfRET2 



XOR 

A 



LD 

HLfLPlB 



SBC 

HL^BC 



JP 

Z»RET2 


RETl : 

INC 

BC 

JCHANGE RETURN ADDRESS 


INC 

BC 



LD 

Hj B 



LD 

LfC 



DEC 

SP 



DEC 

SP 



EX 

SP ) . HL 



El 




RET I 



RET2: 

LD 

HLf RETRN 

fCHANGE re: TURN ADDRESS 


DEC 

SP 



DEC 

SP 



EX 

< SP ) » HL 



El 

RET I 
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PRINT LISTINGS OF ASSEMBLED PROGRAMS 
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Table Dl. Assembled listing of main program 


CROHEHCO CDOS ZBO ASSEMBLER version 02.15 


RAGt 0001 




0001 







0002 

i 






0003 

)MA1N 1 

PROGRAM 

LISTING FOR 

LIDAR ENERGY MONITOR PROGRAM 



0004 

ft*$**t**********t*t******tt******«******************** 



0005 

f 






0006 

i 





(0800) 

0007 

PIESUM 

EOU 

0800H 



(0803) 

0008 

DIESUM 

LQU 

0803H 



(0806) 

0009 

XIESUM 

EQU 

0806H 



(0809) 

0010 

P2ESUM 

EQU 

0809H 



(0800 

0011 

D2ESUM 

EQU 

080CH 



(080F) 

0012 

X2ESUM 

LQU 

080FH 



(0802) 

0013 

P1ESM3 

EQU 

0802H 



(0805) 

0014 

D1ESM3 

EQU 

0805H 



(0808) 

0015 

X1ESM3 

EQU 

0808H 



(OBOB) 

0016 

P2ESM3 

EQU 

080BH 



(OeOE) 

0017 

D2ESM3 

EQU 

080EH 



(0811) 

0018 

X2ESM3 

EQU 

0811H 



(0815) 

0019 

NADDR 

EQU 

0815H 



(0817) 

0020 

NUMFIR 

LQU 

0817H 



(0834) 

0021 

PIRAVG 

LCfU 

834H 



(0836) 

0022 

DIRAVG 

EQU 

836H 



(0838) 

0023 

XIRAVG 

EQU 

838H 



(083A) 

0024 

P2RA0G 

EQU 

83AH 



(0830 

0025 

D2RAVG 

EQU 

83CH 



(083E) 

0026 

X2RA0G 

EQU 

83EH 



(0100) 

0027 

DIVIDE 

EQU 

OlOOH 



(C140) 

0028 

REARRG 

EQU 

0140H 



(0120) 

0029 

ADDREG 

EQU 

0120H 



(0170) 

0030 

SWSELl 

EQU 

0170H 



(0280) 

0031 

SUSEL2 

LQU 

0280H 




0032 

r 






0033 

f INITIALIZE STACK AND SET 

INTERRUPT MODE (a) 



0034 

f 




0400 

FB 

0035 

start: 

El 


.ENABLE INTERRUPTS 

0401 

ED56 

0036 


IM 

1 

.INTERRUPT MODE 1 

0403 

315109 

0037 


LD 

SP.951H f 

INITIALIZE STACK 



0038 

f 






0039 

iREAD : 

SWITCHES 

; AND ARRANGE 

INTO NEW N <t>) 



0040 

f 




0406 

DBOF 

0041 

AVGRUN 

: IN 

A. (OFH) 

TREAD SWITCH SETTINGS 

0408 

CB97 

0042 


RES 

2fA 

.'ARRANGE READINGS INTO 

04 OA 

CBB7 

0043 


RES 

6>A 

TNEW N 

040C 

CBBF 

0044 


RES 

7fA 


040E 

CB3F 

0045 


SRL 

A 


0410 

CB3F 

0046 


SRL 

A 


0412 

321508 

0047 


LD 

(NADDR ) fA 

TLOAD ADDRESS HOLDING 



0048 




TN WITH NEW N 



0049 

f 

N 





0050 

» CALCULATE 2 

FOR ♦ FIRINGS TO BE AVERAGED (c> 



0051 





0415 

CBA7 

0052 

cal; 

RES 

4, A SRESET IN CASE SET 



0053 



)BY PDPSER 

0417 

210000 

0054 


LD 

HLfOOH f CLEAR HL 

041A 

1600 

0055 


LD 

D.O )N 

-0? 

041C 

BA 

0056 


CP 

D 


041D 

CA7304 

0057 


JP 

Z.NO 
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0420 

1601 

0058 

LD 

Drl 

»N-1? 

0422 

BA 

0059 

CP 

D 


0423 

CA7804 

0060 

JP 

ZrNl 


0426 

1602 

0061 

LD 

Dr2 

fN=»2? 

0428 

BA 

0062 

CP 

D 


0429 

CA7D04 

0063 

JP 

Z,N2 


042C 

1603 

0064 

LD 

Dr3 

fN-sy 

042E 

BA 

0065 

CP 

D 


042F 

CA8204 

0066 

JP 

Z>N3 


0432 

1604 

0067 

LD 

D>4 

fN-4? 

0434 

BA 

0068 

CP 

D 


0435 

CA8704 

0069 

JP 

Z»N4 


0438 

1605 

0070 

LD 

Df5 

fN=5? 

043A 

BA 

0071 

CP 

D 


043B 

CA8C04 

0072 

JP 

ZfN5 


043E 

1606 

0073 

LD 

Df 6 

fN=»6? 

0440 

BA 

0074 

CP 

D 


0441 

CA9104 

0075 

JP 

ZrN6 


0444 

1607 

0076 

LD 

Df7 

fN=7? 

0446 

BA 

0077 

CP 

D 


0447 

CA9604 

0078 

JP 

Z»N7 


044A 

1608 

0079 

LD 

Dt8 

5N=«8? 

044C 

BA 

0080 

CP 

D 


044D 

CA9B04 

0081 

JP 

ZtN8 


0450 

1609 

0082 

LD 

Df9 

»N=9? 

0452 

BA 

0083 

CP 

D 


0453 

CAA004 

0084 

JP 

ZrN9 


0456 

160A 

0085 

LD 

DfOAH 

»N»10? 

0458 

BA 

0086 

CP 

D 


0459 

CAA504 

0087 

JP 

Z>N10 


04 5C 

160B 

0088 

LD 

DfOBH 

»N=11? 

045E 

BA 

0089 

CP 

D 


045F 

CAAA04 

0090 

JP 

Zf Nil 


0462 

160C 

0091 

LD 

DfOCH 

fN=12? 

0464 

BA 

0092 

CP 

D 


0465 

CAAF04 

0093 

JP 

ZrN12 


0468 

160D 

0094 

LD 

D»ODH 

fN=l3? 

046A 

BA 

0095 

CP 

D 


046B 

CAB404 

0096 

JP 

Zf N13 


046E 

CBF4 

0097 

SET 

6fH 

fN=14f 2 TO N=16384 

0470 

C3B604 

0098 

JP 

STORE 


0473 

CBC5 

0099 no: 

SET 

OfL 

fN=Of 2 TO N=1 

0475 

C3B604 

0100 

JP 

STORE 


0478 

CBCD 

0101 Ni: 

SET 

IfL 

fN=lf 2 TO N=»2 

047A 

C3B604 

0102 

JP 

STORE 


047D 

CBD5 

0103 N2: 

SET 

2fL 

JN=2f2 TO N=4 

047F 

C3B604 

0104 

JP 

STORE 


0482 

CBDD 

0105 N3: 

SET 

3fL 

fN=3f2 TO N=8 

0484 

C3B604 

0106 

JP 

STORE 


0487 

CBE5 

0107 N4I 

SET 

4fL 

fN=4f2 TO N=16 

0489 

C3B604 

0108 

JP 

STORE 


048C 

CBED 

0109 N5: 

SET 

5fL 

fN=5r2 10 N=32 

048E 

C3B604 

0110 

JP 

STORE 


0491 

CBF5 

0111 N6: 

SET 

6fL 

fN=6r2 TO N=64 

0493 

C3B604 

0112 

JP 

STORE 


0496 

CBFD 

0113 N7t 

SET 

7fL 

rN=7f2 TO N=128 

0498 

C3B604 

0114 

JP 

STORE 
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049B 

CBC4 

0115 

N8: 

SET 

O.H »N»8.2 TO N=256 


049D 

C3B604 

0116 


JP 

STORE 


04A0 

CBCC 

0117 

N9t 

SET 

l.H >N-9.2 TO N-512 


04A2 

C3B604 

0118 


JP 

STORE 


04AS 

CB04 

0119 

NlOt 

SET 

2.H JN-10.2 TO N=1024 


04A7 

C3B604 

0120 


JP 

STORE 


04AA 

CBOC 

0121 

Nil: 

SET 

3.H fN-11.2 TO N«2048 


04AC 

C3B604 

0122 


JP 

STORE 


04AF 

CBE4 

0123 

N12: 

SET 

4»H fN»12.2 Ul N=4096 


04B1 

C3B604 

0124 


JP 

STORE 


04B4 

CBEC 

0125 

N13t 

SET 

5.H JN-13.2 TO N=8192 


04B6 

221708 

0126 

store: 

LD 

<NUMFIR).HL 




0127 

r 






0128 

1 CLEAR 

MEMORIES 

HOLDING CHANNEL ENERGY SUMS <d> 




0129 


■ 



04B9 

OEll 

0130 

INTRTi: 

LD 

C.llH .INITIALIZE COUNTER 


04BB 

AF 

0131 


XOR 

A .CLEAR ACCUMULATOR 


04BC 

110008 

0132 


LD 

DE.PIESUM 


04BF 

12 

0133 

clrmem: 

LD 

(DE) .A 


04C0 

B9 

0134 


CP 

C 


04C1 

CAC904 

0135 


JP 

Z. Jl 


04C4 

00 

0136 


DEC 

C 


04 C5 

13 

0137 


INC 

DE 


04C6 

C3BF04 

0138 


JP 

CLRMEM 




0139 

> 






0140 

: INITIALIZE SHOT COUNTER (e) 




0141 

} 




04C9 

0600 

0142 

Ji: 

LD 

B.O 




0143 

f 






0144 

.'CHECK 

IF LASER 

SYSTEM HAS FIRED <f) 




0145 





04CB 

0B06 

0146 

bsyht: 

IN 

A.(06H) .'READ A/D BUSY SIGNALS 


04CD 

CB47 

0147 


BIT 

O.A 


04CF 

CA0C04 

0148 


JP 

Z.J2 fItST P2 BUSY IF PI BUSY 



0149 



.IS NOT HIGH 


04D2 

0B06 

0150 

LOOPi : 

IN 

A.<06H> SLOOP TILL PI BUSY GOES 

LOW 

0404 

CB47 

0151 


BIT 

O.A 


0406 

C20204 

0152 


JP 

N/ .LOOPI 


0409 

C3E804 

ores 


JP 

J3 


040C 

CB5F 

0154 

j2: 

BIT 

3 . A 


040E 

CACB04 

0155 


JP 

Z.BSYWT ; INPUT NEW BUSY SIGNALS 

IF 



0156 



»P2 HAS NOT FIRED 


04E1 

0B06 

0157 

L00P2: 

IN 

A.<06H) .'LOOP TILL P2 BUSY GOtS 

LOW 

04E3 

CB5F 

0158 


BIT 

3. A 


04E5 

C2E104 

0159 


JP 

NZ.C00P2 




0160 







0161 

JSUM CHANNEL ENERGIES TO PREVIOUS TOTALS (a) 




0162 

f 




04E8 

C5 

0163 

j3: 

PUSH 

BC 


04E9 

OEOO 

0164 


LD 

C.O .PI ENERGY SUMMING SEQUENCE 

04EB 

E0S8 

0165 


IN 

E. <C) 


04E0 

0E08 

0166 


CD 

C.08H 


04EF 

E050 

0167 


IN 

D.(C) 


04F1 

CD4001 

0168 


CALL 

REARRG 


04F4 

210008 

0169 


LD 

HL.PIESUM 


04F7 

4B 

0170 


LD 

C.E 


04F8 

CD2001 

0171 


CALL 

ADDREG 
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04FB 

OEOl 

0172 

LD 

C»1 FDl ENERGY SUMMING SEQUENCE 

04FD 

E058 

0173 

IN 

E»(C) 

04FF 

0E09 

0174 

LD 

C»09H 

0501 

ED50 

0175 

IN 

Df(C> 

0503 

C04001 

0176 

CALL 

REARRG 

0506 

210308 

0177 

LD 

HLrDlESUM 

0509 

4B 

0178 

LD 

C»E 

050A 

C02001 

0179 

CALL 

ADDRE6 

OSOD 

0E02 

0180 

LD 

Cf2 {XI ENERGY SUMMING SEQUENCE 

050F 

E058 

0181 

IN 

E»<C> 

0511 

OEOA 

0182 

LD 

CfOAH 

0513 

ED50 

0183 

IN 

D»(C) 

0515 

C04001 

0184 

CALL 

REARRG 

0518 

210608 

0185 

LD 

HLfXlESUM 

051B 

4B 

0186 

LD 

CfE 

051C 

C02001 

0187 

CALL 

ADDREG 

051F 

0E03 

0188 

LD 

C»3 {P2 ENERGY SUMMING SEQUENCE 

0521 

E058 

0189 

IN 

E,<C) 

0523 

OEOB 

0190 

LD 

CfOBH 

0525 

ED50 

0191 

IN 

D» (C) 

0527 

CD4001 

0192 

CALL 

REARRG 

052A 

210908 

0193 

LD 

HLfP2ESUM 

0520 

4B 

0194 

LD 

C,E 

052E 

CD2001 

0195 

CALL 

ADDREG 

0531 

0E04 

0196 

LD 

C»4 »*D2 ENERGY SUMMING SEQUENCE 

0533 

ED58 

0197 

IN 

Ef<C) 

0535 

OEOC 

0198 

LD 

CfOCH 

0537 

ED50 

0199 

IN 

Df (C> 

0539 

CD4001 

0200 

CALL 

REARRG 

053C 

210C08 

0201 

LD 

HL>D2ESUM 

053F 

48 

0202 

LD 

CtE 

0540 

CD2001 

0203 

CALL 

ADDREG 

0543 

0E05 

0204 

LD 

Cf5 fX2 ENERGY SUMMING SEQUENCE 

0545 

EBS8 

0205 

IN 

E»<C) 

0547 

OEOD 

0206 

LD 

CrODH 

0549 

ED50 

0207 

IN 

Df (C) 

054B 

CD4001 

0208 

CALL 

REARRG 

054E 

210F08 

0209 

LD 

HLrX2ESUM 

0551 

4B 

0210 

LD 

CrE 

0552 

CD2001 

0211 

CALL 

ADDREG 

0555 

Cl 

0212 

POP 

BC 



0213 

f 

- 



0214 

J ADVANCE SHOT 

COUNTER (h{ 



0215 

f 


0556 

03 

0216 

INC 

BC 



0217 

f 




0218 

{CALCULATE RUNNING AVERAGES FOR EACH CHANNEL (i) 



0219 

» 


0557 

EDSB0008 

0220 

LD 

DEf(PlESUM) {GET PIESUM 

0S5B 

2A0208 

0221 

LD 

HLf (P1ESM3) 

055E 

2600 

0222 

LD 

HrO 

0560 

CDOOOl 

0223 

CALL 

DIVIDE {CALCULATE PI RUNNING AVG. 

0563 

ED533408 

0224 

LD 

<PlRAVG)fDE {STORE AT PIRAVG 

0567 

E05B0308 

0225 

LD 

DEf(DlESUM) {GET DIESUM 

0S6B 

2A0508 

0226 

LD 

HLf <D1ESM3> 

056E 

2600 

0227 

LD 

HfO 

0570 

CDOOOl 

0228 

CALL 

DIVIDE {CALCULATE D1 RUNNING AVG. 
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0373 ED533608 

0577 EDSBO^OS 
0S7B 2A0808 
057E 2600 

0580 C0OOO1 
0583 EIIS33808 

0587 ED5B090B 
0S8B 2A0B08 
058E 2600 

0590 CDOOOl 
0593 ED533A08 

0597 ED5B0C08 
059B 2A0E08 

059E 2600 

05A0 CDOOOl 
0SA3 ED533C08 
05A7 ED5B0F08 
05AB 2A1108 
05AE 2600 
05B0 CDOOOl 
05B3 ED533E08 


05B7 AF 
05B8 2A1708 

05BB ED42 
05BD C2CB04 


OSCO 113408 
0SC3 lA 
05C4 D300 


05C6 0E02 

05C8 OD 
05C9 CA1B06 
05CC C3C805 


05CF 13 
05D0 lA 
03D1 D301 

03D3 18FE 
03DS 113608 
05D8 lA 
05D9 D300 

05DB 18FE 
05D0 13 

050E lA 
05DF D301 
05E1 18FE 
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0229 


LD 

<D1RAWG)»DE 

J store at DIRAVG 


0230 


LD 

DE.<X1ESUM) 

JGET XIESUM 


0231 


LD 

HLf <X1ESM3) 



0232 


LD 

H>0 



0233 


CALL 

DIVIDE 

> CALCULATE XI RUNNING 

CD 

0234 


LD 

<X1RAVG)»DE 

ISTORE AT XIRAVG 


0235 


LD 

DE»<P2ESUM) 

>GET P2LSUM 


0236 


LD 

HL»<P2ESM3) 



0237 


LD 

HrO 



0238 


CALL 

DIVIDE 

S CALCULATE P2 RUNNING 

AVG. 

0239 


LD 

(P2RAVG)fDE 

F STORE AT P2RAVG 


0240 


LD 

DEr<D2ESUM) 

fGET D2ESUM 


0241 


LD 

HLf<D2ESM3) 



0242 


LD 

HrO 



0243 


CALL 

DIVIDE 

J CALCULATE D2 RUNNING 

AVG. 

0244 


LD 

(D2RAVG) »DE 

F STORE AT D2RAVG 


0245 


LD 

DEf <X2ESUM) 

fGET X2ESUM 


0246 


LD 

HLf (X2ESM3) 



0247 


LD 

HfO 



0248 


CALL 

DIVIDE 

f'CALCULATE X2 RUNNING 

AVG. 

0249 

0250 

« 

LD 

(X2RAVG) fDE 

F STORE AT X2RAVG 


0251 

J CHECK 

IF N FIRINGS REACHED 

<J) 


0252 

} 





0253 


XOR 

A fRESET CARRY FLAG 


0234 


LD 

HLf<NUMFIR) 



0255 


SBC 

HLfBC 



0256 


JP 

NZfBSYWT f'WAIT for next firing unless 


BC=N 

0257 f 

0258 JSEND LOW BYTE OF PI ENERGY AVG. TO PDP-11 (K) 

0259 5 


0260 

PDPRTN 

: LD 

DEfPIRAVG 


0261 


LD 

Af <DE) 


0262 


OUT 

(OOH)fA 


0263 

i 




0264 

>UAIT 

12 U-SEC 

FOR PDP-11 

RESPONSE (1) 

0265 

f 




0266 


LD 

C.2 


0267 

LPi ; 

DEC 

C 


0268 

lpia: 

JP 

ZfDISPLAY 


0269 

lpib: 

JP 

LPI 


0270 

f 




0271 

F TRANSFER ENERGY AVG. DATA 

10 PDP-ll (») 

0272 

> 




0273 

RETRNS 

INC 

DE 

JHIGH BYTE OK PI ENERGY 

02/4 


LD 

Af(DE) 

f*AVG. to PDP-11 

0275 


OUT 

(OlH) fA 


0276 

Hi: 

JR 

HI 


0277 


LD 

DEf DIRAVG 

»LOW BYTE OF Dl ENERGY 

02/8 


LD 

Af <DE> 

»AVG. SENT TO PDP-11 

0279 


OUT 

<00H)fA 


0280 

H2: 

JR 

H2 


0281 


INC 

DE 

»HIGH BYTE OF Dl ENERGY 

0282 


LD 

Af (DE) 

f'AVG. sent to PDP-11 

0283 


OUT 

(OlH) fA 


0284 

H3: 

JR 

H3 
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05E3 

113808 

0285 

LD 

DErXlRAUG 

)LOH BYTE OF XI ENERGY 

0SE6 

lA 

0286 

LO 

A><D£> 

)AVG. SENT TO PDP-11 

05E7 

0300 

0287 

OUT 

(OOH) f A 


05E9 

18FE 

0288 H4: 

JR 

H4 


05EB 

13 

0289 

INC 

DE 

.HIGH BYTE OF XI ENERGY 

05EC 

lA 

0290 

LD 

A.<DE> 

fAVG. SENT TO PDP-11 

05ED 

0301 

0291 

OUT 

(OlH) .A 


05EF 

18FE 

0292 H5S 

JR 

H5 


05F1 

113A08 

0293 

LD 

DE»P2RAVG 

fLOW BYTE OF P2 ENERGY 

05F4 

lA 

0294 

LD 

At <DE) 

.‘AUG. SENT TO PDP-11 

05F5 

0300 

0295 

OUT 

(OOH) rA 


05F7 

18FE 

0296 H6: 

JR 

H6 


05F9 

13 

0297 

INC 

DE 

JHIGH BYTE OF P2 ENERGY 

05FA 

lA 

0298 

LD 

At (DE) 

fAVG. SENT TO PDP-11 

05FB 

0301 

0299 

OUT 

(OlH) »A 


05FD 

18FE 

0300 H7S 

JR 

H7 


05FF 

113C08 

0301 

LD 

DEtD2RAVG 

)LOW BYTE OF D2 ENERGY 

0602 

lA 

0302 

LD 

At(DE) 

fAVG. SENT TO PDP-11 

0603 

0300 

0303 

OUT 

(OOH) tA 


0605 

18FE 

0304 H8S 

JR 

H8 


0607 

13 

0305 

INC 

DE 

)HIGH BYTE 0(- D2 ENERGY 

0608 

lA 

0306 

LD 

At (DE) 

JAVG. SENT TO PDP-11 

0609 

0301 

0307 

OUT 

(OlH)tA 


060B 

18FE 

0308 H9: 

JR 

H9 


060D 

113E08 

0309 

LD 

DE.X2RAVG 

»LOW BYTE OF X2 ENERGY 

0610 

lA 

0310 

LD 

A.(DE) 

fAVG. SENT TO PDP-ll 

0611 

0300 

0311 

OUT 

(OOH)»A 


0613 

18FE 

0312 HlOt 

JR 

HIO 


0615 

13 

0313 

INC 

DE 

JHIGH BYTE OF X2 ENERGY 

0616 

lA 

0314 

LD 

Ar(DE) 

)AOG. SENT TO PDP-11 

0617 

0301 

0315 

OUT 

(OlH) tA 


0619 

18FE 

0316 Hli; 

JR 

Hll 




0317 f 






0318 ^PROGRAM 3-CHANNEL SELtCIABLE DISPLAY (n) 



0319 f 




061B 

0BO7 

0320 DISPLAY 

:IN 

At (07H) 

r-READ LEFT DISt'LAY'S 



0321 



.•SELECTION SWITCHES 

0610 

CB9F 

0322 

RES 

3f A 


061F 

CBA7 

0323 

RES 

4rA 


0621 

CBAF 

0324 

RES 

5. A 


0623 

CBB7 

0325 

RES 

6f A 


0625 

CBBF 

0326 

RES 

7fA 


0627 

CD7001 

0327 

CALL 

SWSELl 


062A 

0EO2 

0328 

LD 

Cr02H 


062C 

ED51 

0329 

OUT 

(C) rD 

! PROGRAM THOUSANDS AND 



0330 



^HUNDREDS OF LEFT DISPLAY 

062E 

C08002 

0331 

CALL 

SWSEL2 


0631 

0E03 

0332 

LD 

Cf03H 


0633 

E051 

0333 

OUT 

(C)fD 

f PROGRAM TENS AND ONES 



0334 



fOF LEFT DISPLAY 

0635 

0B07 

0335 

IN 

A. (07H) 

TREAD MIDDLE DISPLAY'S 



0336 



.‘SELECTION SWITCHES 

0637 

CBB7 

0337 

RES 

6 f'A 


0639 

CBBF 

0338 

RES 

7. A 


063B 

CB3F 

0339 

SRL 

A 


0630 

CB3F 

0340 

SRL 

A 


063F 

CB3F 

0341 

SRL 

A 
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0^41 

CD7001 

0342 


CALL 

SWSELl 


0644 

0E04 

0343 


LO 

Cf04H 


0646 

E051 

0344 


OUT 

<C)fD 

» PROGRAM THOUSANDS AND 



0345 




fHUNDREDS OF MIDDLE DISPLAY 

0648 

C08002 

0346 


CALL 

SHSEL2 


064B 

0E05 

0347 


LD 

CfOSH 


064D 

E051 

0348 


OUT 

<C)»D 

; PROGRAM TENS AND ONES 



0349 




»0F MIDDLE DISPLAY 

064F 

DBOF 

0350 


IN 

Ar(OFH) 

>REAH RIGHT DISPLAY'S 



0351 




» SELECTION SWITCHES 

0651 

CB9F 

0352 


RES 

3rA 


0653 

CBA7 

0353 


RES 

4f A 


0655 

CBAF 

0354 


RES 

5fA 


0657 

CBB7 

0355 


RES 

6» A 


0659 

CBBF 

0356 


RES 

7. A 


065B 

CD7001 

0357 


CALL 

SWSELl 


065E 

0E06 

0358 


LD 

C.06H 


0660 

ED51 

0359 


OUT 

<C).D 

.PROGRAM THOUSANDS AND 



0360 




.HUNDREDS OF RIGHT DISPLAY 

0662 

C08OO2 

0361 


CALL 

SWSEL2 


0665 

0E07 

0362 


LD 

Cf07H 


0667 

ED51 

0363 


OUT 

<C>fD 

j PROGRAM TENS AND ONES 



0364 




.OF RIGHT DISPLAY 



0365 

f 






0366 

> DETERMINE WHERE TO RESUME 

: MAIN PROGRAM (o) 



0367 

1 




0669 

3A1508 

0368 


LD 

Af (NADDR) 


066C 

CB67 

0369 


BIT 

4f A 

.‘CHECK IF SWITCHES HAVE BEEN 



0370 




ICHANGED BY PDP-11 

066E 

CA0604 

0371 

C 

JP 

ZrAOGRUN 

fGO TO AVGRUN TO READ SWITCHE 



0372 

w 



SIF SWITCHES UNCHANGED 

0671 

C31504 

0373 


JP 

CAL 

.OTHERWISE. 60 TO SEQUENCE 



0374 




.THAT DETERMINES NEW VALUE OF 



0375 




.2 RAISED TO N POWER 
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0001 i 

0002 f 

0003 ; SUBROUTINE REARK'G 

0004 f 

0005 i 

0006 i 

0007 ; SUBROUTINE REARRG TAKES I HE I Wu BYTES 

0008 f CONTAINING THE ELEVEN BlTS OK A GIVEN 

0009 > CHANNEL'S ENERGY FOR A FlKlNbjt-KUM I HE 

0010 fA/Bt AND REARRANGES THEM INTO THE 

0011 ^CORRECT TWO BYTE BINARY NUMBER. 


0140 

CB42 

0012 

REARRG; 

BIT 

0 » B 

0142 

CA4A01 

0013 


JP 

ZfLl 

0145 

CBF3 

0014 


SET 

6 » E 

0147 

C34C01 

0015 


JP 

L2 • 

01 4A 

CBB3 

0016 

L 1 ; 

RES 

6 » E! 

01 4C 

CB4A 

001 7 

L2: 

BIT 

1 > D 

014E 

CA5601 

0018 


JP 

2 f L 3 

0151 

CBFB 

0019 


SET 

7fE 

0153 

C35801 

0020 


JP 

1.4 

0 1 56 

CBBB 

0021 

L3; 

RES 

7 » E 

0158 

CBB2 

0022 

L4 ; 

RES 

6 * ri 

015A 

CBBA 

0023 


PEG 

7f D 

CISC 

CB3A 

0024 


bRL 

fi 

015E 

CB3A 

0025 


SRL 

B 

0160 

C9 

0026 


RET 
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0001 f 

0002 ; 

0003 J SUBROUTINE ADBREG 

0004 ; ==: = =: = =: = = = = r== = = =.=r=:r= 

0005 f 

0006 ?THIS SUBROUTINE ADDS TWO TRIPLE PRECISION NUMBERS. 

0007 » BEFORE THIS ROUTINE IS CALLED » THE HL REGISTER 

0008 fPAIR MUST POINT TO THE LS-BYTE OF THE TRIPLE 

0009 ; PRECISION VALUE STORED IN MEMORY. THE LS-BYTE 

0010 rOF THE OTHER TRIPLE PRECISION NUMBER MUSI BE 

0011 jSTORED in REGISTER C AND THE NEXT SIGNIFICANT 

0012 JBYTE IN REGISTER D. THE MS-BYTE WILL ALWAYS BE 

0013 500H AND IS TAKEN CARE OF WITHIN THE SUBROUTINE. 

0014 t 


0120 

79 

0015 addreg: 

LD 

A»C 

0121 

86 

0016 

ADD 

A » ( HL ) 

0122 

77 

0017 

ID 

( HL ) » A 

0123 

23 

0018 

INC 

HL 

0124 

7A 

0019 

LD 

ArD 

0125 

8E 

0020 

ADC 

A? (HL) 

0126 

77 

0021 

LD 

(HL) »A 

0127 

23 

0022 

INC 

HL 

0128 

3E00 

0023 

LD 

A» OOH 

012A 

8E 

0024 

ADC 

A f ( HL ) 

01 2B 

77 

0025 

u;i 

( HL ) f A 

012C 

C9 

0026 

RET 
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0001 

9 





0002 

n 





0003 

? SUBROUTINE 

DIOIDE 




0004 

y 

= = =: = =:“=: 




0005 

f 





0006 

fTHIS SUBROUTINE PERF-UKMS 

A 32-BIT BY 



0007 

f 16-BIT UNSIGNED DlOluE, 

IHE 32-BlT 



0008 

JDIOIDEND IS 

INPUT IN HH... 

ffUAND E 



0009 

? (H=HSB>E=LSB) r WHIt..E THE 

16-BIT BlOISOP 



0010 

»IS IN REG. 

PAIR BC. WHEN 

FINISHED IHE 



0011 

» 16-BIT QUOTIENT IS HELD 

IN DE AND ANY 



0012 

» REMAINDER IS IN HL . 




0013 

f 



0100 

3E10 

0014 

dioi.de: ld 

A»16 

JITERAIION COUNTER 

0102 

29 

0015 

loop; add 

HL T HL 

» SHIFT HL LEFT 

0103 

EB 

0016 

EX 

DE»HL 

;DE to HL FOR SHIF T 

0104 

29 

0017 

ADD 

HLjHL 

> SHIFT (DE) 

0105 

EB 

0018 

EX 

DEf HL 


0106 

D20A01 

0019 

JP 

NC» JUMPl 

*G0 IF NU CARRY 

0109 

23 

0020 

INC 

HL 

? CARRY rO MS 2 BYTES 

OlOA 

B7 

0021 

JUMPl; OR 

A 

PRESET CARRY 

OlOB 

ED42 

0022 

SBC 

HLfBC 

iibUBTRACI BIOIBOk 

01 on 

13 

0023 

INC 

LIE 

;SET 0=-l 

OlOE 

F21401 

0024 

JP 

P. JUMP 2 

5G0 IF Q=1 

0111 

09 

0025 

AUD 

HL . BC 

f REST 0E>'E 

0112 

CB83 

0026 

RES 

0 > E 

FSET Q=^0 

0114 

3D 

0027 

JUMP2; DEC 

A 

r DECREMENT CUUNT 

0115 

C20201 

0028 

JP 

NZ .LOOP 

T bO IE NU I DONE 

0118 

C9 

0029 

RET 


j RETUR:N 
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SUBROUTINE SUSELl 

SUBROUTINE SUSELl DETERMINES WHICH CHANNEL 
TO DISPLAY ON THE DISPLAY BEING CONSlDER£D» 
CONVERTS THE ENERGY AVERAGt 10 BCD? THEN 
PROGRAMS THE THOUSANDS AND HUNDREDS 
DIGITS OF THE DISPLAY 


> 

THOUSN 

EOU 

0349H 




BINVAL 

EOU 

0827H 




PIRAVG 

EQU 

834H 




DIRAVG 

EOU 

836H 




X1RAV6 

EOU 

838H 




P2RAVG 

EQU 

8JAH 




D2RAVG 

EQU 

83CH 




X2RAVG 

EQU 

83EH 




DECML4 

EQU 

0823H 




SUSELl S 

LD 

D.OOH 

(DISPLAY 

PI 

ENERGY 


CP 

D 





JP 

Z.Sl 





LD 

D.OIH 

(DISPLAY 

Dl 

AVG. r 


CP 

D 





JP 

Z.S2 





LD 

D.02H 

(DISPLAY 

XI 

AVG. 7 


CP 

D 





JP 

Z.S3 





LD 

D . 03H 

(DISPLAY 

P2 

AVG. ? 


CP 

D 





JP 

Z.S4 





LD 

D.04H 

(DISPLAY 

D2 

AVG. > 


CP 

D 






(0349) 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 


(0827) 

0013 


(0834) 

0014 


(0836) 

0015 


(0838) 

0016 


(083A) 

0017 


(0830 

0018 


(083E) 

0019 


(0823) 

0020 

0170 

1600 

0021 

0172 

BA 

0022 

0173 

CA9901 

0023 

0176 

1601 

0024 

0178 

BA 

0025 

0179 

CAA401 

0026 

017C 

1602 

0027 

017E 

BA 

0028 

017F 

CAAFOl 

0029 

0182 

1603 

0030 

0184 

BA 

0031 

0185 

CABAOl 

0032 

0188 

1604 

0033 

018A 

BA 

0034 

018B 

CAC501 

0035 

018E 

ED5B3E08 

0036 

0192 

ED532708 

0037 

0196 

C3CD01 

0038 

0199 

ED5B3408 

0039 

019D 

ED532708 

0040 

OlAl 

C3CD01 

0041 

01A4 

E0SB3608 

0042 

01A8 

ED532708 

0043 

OlAC 

C3CD01 

0044 

OlAF 

ED5B3808 

0045 

01B3 

ED532708 

0046 

01B7 

C3CD01 

0047 

OIBA 

E05B3A08 

0048 

OIBE 

ED532708 

0049 

01C2 

C3CD01 

0050 

01C5 

ED5B3C08 

0051 

01C9 

ED532708 

0052 

OICD 

214903 

0053 

01 DO 

112308 

0054 

0055 

0056 

01 D3 

E5 

0057 



JP 

Z.S5 


LD 

DE. (X2RAVG) 


LD . 

(BINVAL) .DE 


JP 

BNTODC 

Si; 

LD 

DE. (PIRAVG) 


LD 

(BINVAL ) .DE 


JP 

BNTODC 

S2; 

LD 

DE.( DIRAVG) 


LD 

(BINVAL) .UE 


JP 

BNTODC 

S3; 

LD 

DE. (XlRAVG) 


LD 

(BINVAL) .DE 


JP 

BNTODC 

sa : 

LD 

DE. (P2RAVG) 


LD 

(BINVAL). DE 


JP 

BNTODC 

S5; 

LD 

DE. ( D2RAVG) 


LD 

(BINVAL) .DE 

BNTODC ; 

LD 

HL. THOUSN 



LD 

DE.DECML4 

BNDC; 

PUSH 

HL 


5DISPLAY X2 AVG. 
(DISPLAY PI AVG. 
(DISPLAY Dl AVG. 
(DISPLAY XI AVG. 
(DISPLAY P2 AVG. 

(DISPLAY D2 AVG. 

(IHE ROUTINE BNTODC IS 
(DESCRIBED IN THE 
(ZSO COOKBOOK. PG. 178 
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01B4 

D5 

0058 


PUSH 

DE 

01D5 

112708 

0059 

nCEQVL .* 

LD 

DE»BINVAL 

01B8 

010002 

0060 


LO 

BCf0200H 

OIDB 

A7 

0061 

bcloop: 

AND 

A 

OlDC 

lA 

0062 

DCLPl J 

LD 

Af <DE) 

01 DD 

9E 

0063 


SBC 

A » ( HL ) 

OIDE 

12 

0064 


LD 

<D£) »A 

OIDF 

05 

0065 


DEC 

B 

OlEO 

CAE801 

0066 


JP 

Zr INCRVL 

01E3 

23 

0067 


INC 

HL 

01E4 

13 

0068 


INC 

DE 

01E5 

C3DC01 

0069 


JP 

DCLPl 

01E8 

OC 

0070 

incrvl: 

INC 

C 

01E9 

2B 

0071 


DEC 

HL 

OlEA 

112708 

0072 


LD 

DEjBINVAL 

OlED 

0602 

0073 


LD 

B.02H 

OlEF 

D2DB01 

0074 


JP 

NC jDCLOOP 

01F2 

OD 

0075 


DEC 

C 

01F3 

EB 

0076 


EX 

DE.HL 

01F4 

C5 

0077 


PUSH 

BC 

01F5 

010200 

0078 


LD 

BC.0002H 

01F8 

A7 

0079 

adder: 

AND 

A 

01F9 

lA 

0080 

addmor; 

LD 

A. (DE) 

OlFA 

8E 

0081 


ADC 

A. (HL) 

OlFB 

77 

0082 


LD 

(HL).A 

OlFC 

EDAl 

0083 


CPI 


OlFE 

E20502 

0084 


JP 

PO.NEXT 

0201 

13 

0085 


INC 

DE 

0202 

C3F901 

0086 


JP 

ADDMOR 

0205 

Cl 

0087 

next: 

POP 

BC 

0206 

El 

0088 


POP 

HL 

0207 

71 

0089 


LD 

( HL ) . C 

0208 

EB 

0090 


EX 

DE.HL 

0209 

El 

0091 


POP 

HL 

020A 

23 

0092 


INC 

HL 

020B 

23 

0093 


INC 

HL 

020C 

7B 

0094 


LD 

A.E 

020D 

FE20 

0095 


CP 

20H 

020F 

CA1602 

0096 


JP 

Z.AO 

0212 

IB 

0097 


DEC 

DE 

0213 

C3D301 

0098 


JP 

BNDC iENlI OK BNTUDC 

0216 

1600 

0099 

Ao: 

LD 

D»o » akranue bits 

0218 

3A2308 

0100 


LD 

A. (DECML4> .4-/ UB REG. D 



0101 



;T0 MATCH THE 

021B 

CB47 

0102 


BIT 

0»A JBCD NUMBER AT 

0210 

CA2202 

0103 


JP 

Z.Al {ADDRESS DECML4 

0220 

CBE2 

0104 


SET 

4»D 

0222 

CB4F 

0105 

Ai: 

BIT 

1 >A 

0224 

CA2902 

0106 


JP 

Z.A2 

0227 

CBEA 

0107 


SET 

5.D 

0229 

CB57 

0108 

A2: 

BIT 

2. A 

022B 

CA3002 

0109 


JP 

Z. A3 

022E 

CBF2 

0110 


SET 

6 f D 

0230 

CB5F 

0111 

A3: 

BIT 

3f A 

0232 

CA3702 

0112 


JP 

Z> A4 

0235 

CBFA 

0113 


SET 

7.D 

0237 

212308 

0114 

A4: 

LD 

HL.DECML4 iAKRANue BITS 
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023A 

2B 

0115 

DEC 

HL 

rO-3 OF REG. D 

023B 

7E 

0116 

LD 

A. (HU 

{TO MATCH THE 

023C 

CB47 

0117 

BIT 

0>A 

«BCli NUMBER Al 

023E 

CA4302 

0118 

JP 

Z.A5 

{ADDRESS DfcCML4 

0241 

CBC2 

0119 

SET 

0»D 


0243 

CB4F 

0120 as: 

BIT 

1 rA 


0245 

CA4A02 

0121 

JP 

Zr A6 


0248 

CBCA 

0122 

SET 

1 >11 


024A 

CB57 

0123 A6: 

BIT 

2ffii 


024C 

CA5102 

0124 

JP 

Z.A7 


024F 

CBD2 

0125 

SET 

2»U 


0251 

CB5F 

0126 A7: 

BIT 

3 1 A 


0253 

CA5802 

0127 

JP 

Z f A8 


0256 

CBDA 

0128 

SET 

3>D 


0258 

C9 

0129 A8: 

RET 
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f 


»THOUSN» HUNDRD» TENS» 
? SUBROUTINE SWSELl 

ADDRESS 


349H 

34AH 

THOUSN 

34BH 

34CH 

HUNDRD 

34DH 

34EH 

TENS 

34FH 

350H 

ONES 


A ♦ 


AND ONES TABLES USED IN 
CONTENTS 


E8H 

?ONE 

THOUSAND 

03H 

f IN 

BINARY 

64H 

»ONE 

HUNDRED 

OOH 

f IN 

BINARY 

OAH 

OOH 

f TEN 

IN BINARY 

OlH 

OOH 

fONE 

IN BINARY 
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0001 f 

0002 f 

0003 ; SUBROUTINE SWSEL2 

0004 = 

0005 f 

0006 f SUBROUTINE SWSEL2 PROOK’ANS iHb IhNS 

0007 fAND ONES DIGITS OF THE D.I SPLAY UNDER 

0008 ^CONSIDERATION WHEN IT IS CALLED Ui TH 

0009 tTHE DATA FOR THE CHANNEL SELECTED IN 

0010 f SUBROUTINE SWSELl. 

0011 ; 



(0820) 

0012 DECMAL 

EQU 

820H 




... 

1-1 

o 

o 




0280 

1600 

0014 SWSEL2J 

LD 

D»0 

f ARRANGE BITS 

0282 

3A2008 

0015 

LM 

A f ( DECNAL > 

* 0—3 OF ReG * D 



0016 



no NATCH THE 

0285 

CB47 

0017 

BIT 

0» A 

fBCD NUMBER Al 

0287 

CA8C02 

0018 

JP 

Z,B1 

f ADDRESS DECMAL 

028A 

CBC2 

0019 

SET 

Of D 

f WHICH HULDS THE 

028C 

CB4F 

0020 BIJ 

BIT 

1 f A 

.'ONES DIGIT 

028E 

CA9302 

0021 

JP 

Zf 82 


0291 

CBCA 

0022 

SET 

If D 


0293 

CB57 

0023 B2: 

BIT 

2f A 


0295 

CA9A02 

0024 

JP 

Zf B3 


0298 

CBD2 

0025 

SET 

2f D 


029A 

CB5F 

0026 B3; 

BIT 

3 f A 


029C 

CAA102 

0027 

JP 

If BA 


029F 

CBDA 

0028 

SET 

3f D 


02A1 

212008 

0029 B4: 

LD 

HL f DECMAL 

.ARRANGE BITS 

02A4 

23 

0030 

INC 

HL 

? 4— 7 UF REG . ii 

02A5 

7E 

0031 

LD 

A f ( HL ) 

; TO MATCH THE 

02A6 

CB47 

0032 

BIT 

Of A 

» h’CD NUMBER A 1 

02A8 

CAAD02 

0033 

JP 

Z f B5 

.address IiE C m a 1. + 

02AB 

CBE2 

0034 

SET 

4 f D 

; WHICH HOLDS THE 

02AD 

CB4F 

0035 B5: 

BIT 

1 f A 

HENS DlGl 1 

02AF 

CAB402 

0036 

JP 

Zf B6 


02B2 

CBEA 

0057 

SET 

5f D 


02B4 

CB57 

0038 B6; 

jBI T 

2f A 


02B6 

CABB02 

0039 

JP 

Z f B 7 


02B9 

CBF2 

0040 

SET 

6 f El 


02BB 

CB5F 

0041 B7l 

£<IT 

3f A 


02BD 

CAC202 

0042 

JP 

Z f B8 


02CO 

CBFA 

0043 

SET 

7f D 


02C2 

C9 

0044 B8; 

RET 




Errors 0 
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0001 t 

0002 » 

0003 5 INTERRUPT SERVICE ROUTINE PURSER 

0004 } 

0005 ? 

0006 fUPON AN NMl INTERRUPT BY THE PDP-11 » THE Z80 INPUTS D 
TA 

0007 fBITS PA0-PA3 FROM THE PDP-11 AND ARRANGES THEM AS THE 

0008 SLOWEST ORDER BITS OF AN 8-BIT WORD? THE HIGH ORDER BI 
S 

0009 ?ARE ALL RESET. IF BITS PAO-PAi ARE ALL SET t THEN THE 

0010 ?PDP-11 HAS NOT CHANGED THE THE VALUE OF N BUT REOUIRE 

0011 ?THE CURRENT RUNNING AVERAGE FOR EACH CHANNEL. OTHERWI 

Ef 




0012 

?BITS PA0-PA3 

REPRESENT N 

AND BIT 4 IS SET TO INDICATE 



0013 

?THAT THE PDP- 

•11 PROVIDES 

N AS OPPOSED TO THE SWITCHES 



0014 

f 





<0815) 

0015 

NADDR 

EQU 

815H ■ 



<061B) 

0016 

DISPLAY 

EQU 

61BH 



<05C0) 

0017 

PDPRTN 

EQU 

5C0H 




0018 

* 

f 




0329 

DBOE 

0019 

PDPSERJ 

IN 

A» <0EH) 

fGET PA0-PA3 FROM PDP-11 

032B 

CBA7 

0020 


RES 

4f A 

•CLEAR HIGH ORDER BITS 

032D 

CBAF 

0021 


RES 

5f A 


032F 

CBB7 

0022 


RES 

6f A 


0331 

CBBF 

0023 


RES 

7. A 


0333 

FEOF 

0024 


CP 

OFH 


0335 

CA4303 

0025 

PUT 

JP 

Zf NOCHNG 

? LEAVE SERVICE ROUTINE TO OU' 



0026 




? RUNNING AVERAGES IF N NOT 



0027 




?CHANGED BY pnp-!l 

0338 

CBE7 

0028 


SET 

4» A 

; INDICATE N CHANGED BY PDP-1: 

033A 

321508 

0029 


LD 

(NADDR) f A 

f STORE NEW N 

033D 

211B06 

0030 


LD 

HLj DISPLAY 

? RETURN TO ADDRESS DISPLAY 

0340 

E3 

0031 


EX 

<SP) .HL 

?1N MAIN PROGRAM 

0341 

ED45 

0032 


RETN 



0343 

21C005 

0033 

NOCHNG ; 

LD 

HLfPDPRTN 

? RETURN TU ADDRESS PDPRTN 

0346 

E3 

0034 


EX 

(SP) f HL 

?IN MAIN PROGRAM 

0347 

ED45 

0035 


RETN 




Errors 0 

A. 
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Table D2. (continued.) 


CROMEHCO CDOS Z80 ASSEMBLER version 02.15 


PA8E 0001 


0001 I 

0002 > 

0003 ? INTERRUPT SERMICE kUUnNE PA IRNSHK 

0004 > 

0005 i 

0006 .THIS INTERRUPT SEROICE ROUTINE HANDLES THE IKANSHER 


DATA 

0007 {FROM THE ZOO 

0008 f 



<05C8) 

0009 LPl 

EQU 


(05C9) 

0010 LPIA 

EQU 


(05CC) 

0011 LPIB 

tou 


<05CF) 

0012 RETRN 

EQU 



0013 ; 


02E0 

Cl 

0014 trnsfr: 

PUP 

02E1 

AF 

0015 

XOR 

02E2 

21C805 

0016 

L» 

02E5 

ED42 

0017 

SBC 

02E7 

CA0603 

0018 

wiP 

02EA 

AF 

0019 

XOR 

02EB 

21C905 

0020 

L0 

02EE 

ED42 

0021 

SBC 

02F0 

CA0603 

002? 

JP 

02F3 

AF 

0023 

XOR 

02F4 

21CC05 

0024 

LD 

02F7 

ED42 

0025 

SBC 

02F9 

CA0603 

0026 

JP 

02FC 

03 

0027 RET i; 

INC 

02FD 

03 

0028 

INC 

02FE 

60 

0029 

LD 

02FF 

69 

0030 

LD 

0300 

3B 

0031 

DEC 

0301 

3B 

0032 

DEC 

0302 

E3 

0033 

EX 

0303 

FB 

0034 

El 

0304 

ED4D 

0035 

PET! 

0306 

21CF05 

0036 RET?f 

LD 

0309 

3P 

0037 

PEC 

030A 

3B 

0038 

PEC 

030B 

E3 

0039 

EX 

030C 

FB 

0040 

El 

030D 

ED40 

0041 

RETI 


Errors 

0 

A.- 



10 THE PDP-11 MIA HANDSHAKINB, 


5C8H 

5C9H 

5CCH 

5CFH 



PC 

.GET CURRENT 

RETURN ADDRESS 

A 

.RESET CARRY 

FLAG 

HL.LPl 

HL.DC 

.USE CURRFNI 

RETURN ADDRESS 1 

Z.RET2 

f DETERMINE NEW RETURN ADDRES? 

A 

HL.LPIA 




HLrDC 

ZrRET2 

A 

HL. LPIB 
HL t DC 
Z.RE(2 

PC fCHANBE RH TURN ADDRESS 

DC 

HrP 

L»C 

SP 

SP 

<SP)fHL 


HLfPETPN jCHANOK RP TURN ADDRESS 

S'P 

SP 

( SP > . HL 
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Table D2. (continued.) 


CROMENCO CnOS Z80 ASSEMBLER version 02*15 PAGE 0001 


0001 r 

0002 f 

0003 fJUMP INSTRUCTION TO BEGINNING OF MAIN PROGRAM 

0004 ? ON RESET 

0005 f 

0006 f 

(0400) 0007 MAIN EQU 400H 

0008 f 

0000 C30004 0009 JP MAIN 


Errors 0 


A> 
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Table D2. (continued.) 


CROMEMCO CDOS Z80 ASSEMBLER version 02.15 


PAGE 0001 


(02E0) 
0038 C3E002 


0001 } 

0002 f 

0003 ?JUMP TO INT INTERRUPT SERVICE ROUTINE DATRNSFR 

0004 t 

0005 } 

0006 DAT EQU 2E0H 

0007 T 

0008 JP DAT 


Errors 0 

A. 
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Table D2. (concluded.) 


CROHEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0001 


0001 i 

0002 7 

0003 fJUMP TO NMI INlERRUPT SERVICE ROUTINE PDPSEK 

0004 i 

(0329) 0005 POP EQU 329H 

0006 f 

0066 C32903 0007 JP PDP 


Errors 0 


A ♦ 
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APPENDIX E 


Z80 CPU INSTRUCTION SET* 


ALPHABETICAL 
ASSEMBLY MNEMONIC 


OPERATION 


ADC HL, ss 
ADC A,s 
ADD A,n 
ADD A,r 
ADD A,(HL) 
ADD A,(1X+D) 
ADD A,(IY+D) 
ADD HL,ss 
ADD IX, pp 
ADD lY.rr 
AND s 
BIT b,(HL) 
BIT b, (IX+d) 
BIT b,(IY+d) 
BIT b,r 
CALL cc,nn 

CALL nn 

CCF 

CP s 

CPD 

and 

CPDR 

CPI 

CPIR 

CPL 

DAA 


Add with Carry Reg. pair ss to HL 
Add with carry operand s to Acc. 

Add value n to Acc. 

Add Reg. r to Acc 

Add location (HL) to Acc. 

Add location (iX+d) to Acc. 

Add location (lY+d) to Acc. 

Add Reg. pair ss to HL 
Add Reg. pair pp to IX 
Add Reg. pair rr to lY 
Logical 'AND' of operand s and Acc. 

Test BIT b of location (HL) 

Test BIT b of location (IX+d) 

Test BIT b of location (lY+d) 

Test BIT b or Reg. r 

Call subroutine at location nn.if condition 
cc is true 

Unconditional call subroutine at location nn 
Conplenent carry flag 
Compare operand s with Acc. 

Compare location (HL) and Acc. decrement HL 
and BC 

Compare location (HL) and Acc. decrement HL 
and BC, repeat until 5C=u 

Compare location (HL) and Acc. increment HL 
and decrement BC 

Compare location (HL) and Acc. increment HL, 
decrement BC repeat until BC=0 
Complement Acc. (I's comp) 

Decimal adjust Acc. 


*Reproduced by permission -1980 Zilog, Inc. This material shall not be 
reproduced without the written consent of Zilog, Inc. 
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DEC m 

Decrement operand m 

DEC IX 

Decrement IX 

DEC lY 

Decrement lY 

DEC ss 

Decrement Reg. pair ss 

DI 

Disable interrupts 

DJNZ e 

Decrement B and Jump relative if B^O 

El 

Enable interrupts 

EX (SP),HL 

Exchange the location (SP) and HL 

EX (SP) ,IX 

Exchange the location (SP) and IX 

EX (SP),IY 

Exchange the location (SP) and lY 

EX AF,AF' 

Exchange the contents of AF and AF' 

EX DE,HL 

Exchange the contents of DE and HL 

EXX 

Exchange the contents of BC, DE, HL with 
contents of BC' , DE' , HL' respectively 

HALT 

HALT (wait for interrupt or reset) 

IM 0 

Set interrupt mode 0 

IM 1 

Set interrupt mode 1 

IM 2 

Set interrupt mode 2 

IN A, (a) • 

Load the Acc. with input from device n 

3 IN r,(C) 

Load the Reg. r with input from device (C) 

INC (HL) 

Increment location (HL) 

INC IX 

Increment IX 

INC (IX+d) 

Increment location (IX+d) 

INC lY 

Increment lY 

INC (lY+d) 

Increment (lY+d) 

INC r 

Increment Reg. r 

INC ss 

Increment Reg. pair ss 

IND 

Load location (HL) with input from port (C), 
decrement HL and 3 

INDR 

Load location (HL) with input from port (C), 
decrement HL and decrement B, repeat until 3=0 

INI 

Load location (HL) with input from port (C); 
and increment HL and decrement 3 

INIR 

Load location (HL) with input from port (C), 
increment HL and decrement B, repeat until 3=0 

J? (HL) 

Unconditional Jumo to (HL) 
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JP (IX) 

JP (lY) 

JP cc,nn 
JP nn 
JR C,e 
JR e 
JR NC,e 
JR NZ,e 
JR Z,e 
LD A,(BC) 

LD A,(DE) 

LD A, I 
LD A,(nn) 

LD A.R 
LD (BC),A 
LD (DE) ,A 
LD (HL) ,n 
LD dd,nn 
LD dd, (nn) 
LD HL,(nn) 
LD (HL) ,r 
LD I, A 
LF IX, nn 
LD IX, (nn) 
LD (IX+d) ,n 
LD (IX+d) ,r 
LD IY,nn 
LD IY,(nn) 
LD (lY+d) ,n 
LD (lY+d) ,r 
LD (nn) ,A 
LD (nn) ,dd 
LD (nn) ,HL 
LD (nn) ,IX 
LD (nn) ,IY 
LD R,A 


Unconditional Jump to (IX) 

Unconditional Jump to (lY) 

Jump to location nn if condition cc is true 

Unconditional jump to location nn 

Jump relative to PC+e if carry=l 

Unconditional Jump relative to PC+e 

Jump relative to PC+e if carry=0 

Jump relative to PC+e if nonzero (Z=0) 

Jump relative to PC+e if zero (Z=l) 

Load Acc. with location (BC) 

Load Acc. with location (DE) 

Load Acc. with I 
Load Acc. with location nn 
Load Acc. with Reg. R 
Load location (BC) with Acc. 

Load location (DE) with Acc. 

Load location (HL) with value n 
Load Reg. pair dd with value nn 
Load Reg. pair dd with location (nn) 

Load HL with location (nn) 

Load location (HL) with Reg. r 
Load I with Acc. 

Load IX with value nn 
Load IX with location (nn) 

Load location (IX+d) with value n 
Load location (IX+d) with Reg. r 
Load lY with value nn 
Load lY with location (nn) 

Load location (lY+d) with value n 
Load location (lY+d) with Reg. r 
Load location (an) with Acc. 

Load location (nn) with Reg. pair dd 
Load location (nn) with HL 
Load location (nn) with IX 
Load location (nn) with lY 
Load R with Acc. 
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LD r, (HL) 

LD r,(lX+d) 
LD r, (lY+d) 
LD r ,n 
LD r,r' 

LD SP,HL 
LD SP,IX 
LD SP,IY 
LDD 

LDDR 

LDI 

LDIR 


NEG 
NOP 
R s 
OTDR 

OTIR 

OUT (C),r 
OUT (n),A 
OUTD 

OUT! 

POP IX 
POP lY 
POP qq 
PUSH IX 
PUSH lY 
PUSH qq 


Load Reg. r with location (HL) 

Load Reg. r with location (IX+d) 

Load Reg. r with location (lY+d) 

Load Reg. r with value n 
Load Reg. r with Reg. r' 

Load SP with HL 
Load SP with IX 
Load SP with lY 

Load location (DE) with location (HL), 
decrement DE, HL and BC 
Load location (DE) with location (HL) , 
decrement DE, HL and BC; repeat until BC=0 
Load location (DE) with location (HL) , 
increment DE, HL, decrement BC 
Load location (DE) with location (HL) , 
increment DE, HL, decrement BC and repeat 
until BC=0 

Negate Acc. (2's complement) 

No operation 

Logical 'OR' of operand s and Acc. 

Load output port (C) with location (HL) 
decrement HL and B, repeat until B=0 
Load output port (C) with location (HL) , 
increment HL, decrement B, repeat until B=0 
Load output port (C) with Reg. r 
Load output port (n) with Acc. 

Load output port (C) with location (HL) , 
decrement HL and B 

Load output port (C) with location (HL) , 

increment HL and decrement B 

Load IX with top of stack 

Load lY with top of stack 

Load Reg. pair qq with top of stack 

Load IX onto stack 

Load lY onto stack 

Load Reg. pair qq onto stack 
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RES b,m 

RET 

RET cc 

RETl 

RETN 

RL m 

RLA 

RLC (HL) 

RLC (iX+d) 
RLC (lY+d) 
RLC r 
RLCA 
RLD 

RR m 
RRA 
RRC m 
RRCA 
RRD 

RST p 
SBC A,s 
SBC HLjSS 
SCF 

SET b,(HL) 
SET b, (IX+d) 
SET b,(IY+d) 
SET b,r 
SLA a 
SRA c 
SRL = 

SUB s 
XOR s 


Reset Bit b of operand m 
Return from subroutine 

Return from subroutine if condition cc is true 

Return from interrupt 

Return from nonmaskable interrupt 

Rotate left through carry operand m 

Rotate left Acc. through carry 

Rotate location (HL) left circular 

Rotate location (IX+d) left circular 

Rotate location (lY+d) left circular 

Rotate Reg. r left circular 

Rotate left circular Acc. 

Rotate digit left and right between Acc. and 
location (HL) 

Rotate right through carry operand m 
Rotate right Acc. through carry 
Rotate operand m right circular 
Rotate right circular Acc. 

Rotate digit right and left between Acc, and 
location (HL) 

Restart to location p 

Subtract operand s from Acc. with carry 
Subtract Reg. pair ss from HL with carry 
Set carry flag (C=l) 

Set Bit b of location (HL) 

Set Bit b of location (IX+d) 

Set Bit b of location (lY+d) 

Set Bit b or Reg. r 
Shift operand m left arithmetic 
Shift operand m right arithmetic 
Shift operand m right logical 
Subtract operand s from Acc. 

Exclusive 'OR' operand s and Acc. 
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APPENDIX F 


COMBINATIONAL BLOCK DIAGRAMS OF SIX-CHANNEL 
ENERGY MONITORING/DISPLAY SYSTEM AND PMT 
GAIN CODE MONITOR WITH Z80 MICROCOMPUTER 


PROCESSING UNIT 
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Figure F I 


POWER INTEGRATORS (6 -CHANNEL) 
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Figure F2 

ENERGY AVERAGING SWITCHES 

/ LASER ENERGY PER TRANSMISSION AVERAGED OVER 
\ 2^ TRANSMISSIONS 


# OF TRANSMISSIONS AVERAGED 



1 

II 

CM 

CM 

4 

2^ = 

16 

2® = 

64 

tl 

GO 

CM 

256 

2*^= 

1,024 

2*2= 

4,096 


16,384 


2 ^ 2 ^ 


ENERGY 

AVERAGING 

SWITCHES 



AV0 

(D3) 


AVI 

Id^ 


AV2 

(D5) 


PORT ADDRESS 0FH 
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Figure F3 


3-CHANNEL SELECTABLE DISPLAY 
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Figure F4 


COMMUNICATIONS WITH MAIN COMPUTER 


CPU UNIBUS 


REQUEST A 
(LOW BYTE) 

^ FLAG 

— <1^ 

FE7J5 



(NU CUNNtO 1 lUN/ 



DATA TRANS 

STROBE 



PORT CONTROL 


DEC 0(IN 00) 
DEC 7(IN07) 


DEC 8 (IN 8) 


DEC I5(INI5) 


1 STB TnT 



(PORT 0) 


00 

8 BIT 
PARALLEL 

DSI 

D7 

OUTPUT 


LATCH 



U38 

(8212) 



(PORT 1) 

8 BIT 



PARALLEL 


D0 

OUTPUT 


LATCH 



U39 

T5ST 

D7 

(8212) 


TFf 

D0...D7 



PORT 0 
U36 WR 


PORT I 

U36 WR 


REQUEST 8 
(HIGH BYTE) 


POP 1 1/34 
COMPUTER 


PA 0 (OUT 00) 
PA 3 (OUT 03) 

DRII-C 

INTERFACE 

MODULE 


PORT ADDRESS 0EH (RD) 
(PA0-PA3) 


NEW DATA RDY 


INTER RUPT 

»4a , 



IMS 

I -SHOT' 
... 


(D0-D7) 
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STEP GAIN SWITCH CODE MULTIPLEXERS 
AND READ BUFFER REGISTERS 
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Figure F6 

CPU, MEMORY, AND . I/O 
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